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ABSTRACT 


This  Program  Maintenance  Manual  provides  detailed  information 
on  PSL  program  operations,  data  formats  and  special  procedures 
to  assist  programmer  personnel  in  the  maintenance  of  DMA 
PSL  system  programs. 
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SECTION  1.  GENERAL  DESCRIPTION 

1.1  Purpose  of  the  Program  Maintenance  Manual 

The  objective  for  writing  this  Program  Maintenance  Manual  for 
the  Defense  Mapping  Agency  (DMA)  Programming  Support  Library 
(PSL)  is  to  provide  the  maintenance  programmer  personnel  with 
the  information  necessary  to  effectively  maintain  the  PSL 
software  system. 

1.2  System  Application 

The  DMA  PSL  is  a  comprehensive  system  software  package  which 
supports  the  growth  and  maintenance  of  structured  programming 
projects  in  a  top-down  development  environment.  The  system 
provides : 


a.  A  framework  for  the  organization  of  a  project 

b.  Simple  functional  statements  to  Interface  between 
the  programmer  and  the  machine 

c.  Structural  and  statistical  reports  for  control  of 
the  development  process  and  for  communication 
between  programmers. 

The  DMA  PSL  system  provides  a  special  structured  programming 
support  for  the  Structured  COBOL,  Structured  FORTRAN  and 
Structured  JOVIAL  languages.  However,  unstructured  programs 
may  also  be  stored  and  maintained  under  the  system. 

The  PSL  system  in  the  batch  mode  is  invoked  by  an  @ADD ,  @END , 
@ADD  sequence  ant  is  directed  to  perform  specific  functions  by 
PSL  Function  cards.  The  general  functional  capabilities 
available  under  the  PSL  are: 

a.  Initialize  a  project 

b.  Create  sections  in  a  library 

c.  Add,  change,  move,  replace,  or  purge  a  unit  of  code 

d.  Print,  punch,  or  write  (to  tape)  a  unit  of  code 

e.  Print  an  index  listing 

f.  Print  the  top-down  structure  of  a  program 
K*  Compile,  link,  execute 
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h. 


Delete  a  section,  a  library,  or  a  project 

1.  Backup  a  project,  library,  or  section 

j.  Restore  a  project,  library,  section,  or  unit 

k.  Collect  and  print  management  data 

l.  Print  textual  material 

m.  Print  by  author  or  character  string. 

Equipment  Environment 

PSL  system  operates  on  a  Sperry  Unlvac  1100  series  computer 
r  the  Exec  8  Operating  System  using  a  standard  DMA  software 
hardware  configuration.  Libraries  are  maintained  on  direct 
ss  storage  devices.  The  system  utilizes  the  standard  card 
er  and  printer,  one  tape  drive,  and  40K  words  of  core. 

Programming  Environment 

PSL  system  utilizes  the  Univac  Executive  Operating  System 
ynamlcally  create,  allocate,  deallocate  and  purge  file 
age  space.  Interface  with  the  Executive  system  is  made 
ugh  Executive  Request  Control  statements  using  the  Unlvac 
mbler  (F IELDATA)  language. 

Conventions 

PSL  system  was  developed  using  top-down,  structured  code 
nlques  as  described  in  Section  1  of  the  PSL  User's  Manual, 
resulting  PSL  software  is  best  described  as  an  hierarchical 
nlzation  of  modules  (i.e.,  compilable  aggregations  of  code) 
h  perform  the  many  functions  required  in  PSL  operations. 

module,  in  turn,  is  composed  of  INCLUDEd  or  PERFORKed  units 
ode.  Modules  coded  during  Phase  II  of  PSL  development  were 

to  utilize  the  Phase  I  PSL  software  to  maintain  included 
s  of  code  whereas  Phase  I  PSL  code  was  forced  to  use  the 
L  PERFORM  capability  for  archiving  in-line  code  performance, 
lther  case,  the  included  or  performed  units  of  code  are 
d  to  be  generally  50  lines  of  code  (i.e.,  page  size)  or 
.  Most  of  the  subject  code  is  printed  using  a  PSL  structured 
L  print  routine  which  generates  indented  lines  of  COBOL  code 
ccordance  with  its  structure.  The  resulting  listings  are 

to  read  and  comprehend  once  the  general  purpose  of  the  units 
paragraphs)  of  code  are  understood.  In  light  of  the  above, 
following  rules,  schemes  and  conventions  are  utilized  in 
Loping  and  describing  the  PSL  system. 
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Module  Identification 


Module  names  are  up  to  six  characters  In  length  and 
generally  have  mnemonic  content  that  corresponds  to 
the  function  performed.  In  most  cases,  modules 
written  In  structured  COBOL  (SCOBOL)  or  ASM  have  four 
character  mnemonic  names  to  which  an  "E"  is  appended 
denoting  "entry  point".  This  convention  was  employe 
to  cause  the  module  name  to  be  the  same  as  the  module 
entry  print  name.  Module  names  of  this  composition 
utilize  a  pair  of  two-character  mnemonics  to  denote 
their  function.  A  consistent  usage  of  these  two- 
character  mnemonics  is  maintained.  For  example,  "DL" 
always  is  used  to  denote  "delete".  The  mnemonic  name 
of  each  module  is  paired  with  a  descriptive  name  in 
Section  2  of  this  manual. 

Unit  Identification 

Units  (or  paragraphs)  of  code  are  given  up  to  thirty 
(30)  character  names  which  are  descriptive  of  the 
functions  performed  by  the  code.  A  unit  of  code  (as 
opposed  to  a  paragraph)  has  its  functional  name  pre¬ 
fixed  by  the  mnemonic  name  of  the  module  in  which  it 
is  INCLUDEd.  The  top-unit  (or  paragraph)  of  each 
module  of  code  generally  contains  INCLUDES  or  PERFORMS 
to  reference  the  component  functions  of  the  module. 

A  substantial  understanding  of  module  operations  is 
usually  gained  at  the  top-level  of  code  and  immediately 
below.  The  Hierarchy  plus  Input-Process-Output  (HIPO) 
diagrams  given  in  Section  2  render  a  descriptive 
statement  of  the  top— logic  for  each  module  combined 
with  a  visual  picture  of  the  input  and  output  process¬ 
ing  performed. 

HIPO  Diagram  Conventions 

Input  and  Output  files,  tables  and  parameters  will  be 
noted  in  the  following  manner: 

•  Subroutine  USING  and  GIVING  parameters  will  be 
enclosed  in  brackets:  [Subroutine  Parameter] 

•  Temporary  file  and  table  names  will  be  preceded 
by  a  bullet:  •  Temporary  File 

•  Permanent  file  naaes  will  appear  in  a  boxed 

area:  [Permanent  File| 
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Functional  steps  in  the  Process  section  of  the  HIPO 
diagrams  will  be  sequentially  numbered  for  purposes 
of  identification.  When  further  detail  on  a  process 
step  is  necessary,  the  HIPO  diagram  containing  that 
detail  is  noted  in  the  step.  The  functional 
description  in  each  HIPO  diagram  are  readily 
corresponded  with  the  PSL  program  listings  (provided 
as  an  appendix  to  this  manual)  when  a  more  detailed 
knowledge  of  program  operations  is  required. 

1.6  Conversion  Considerations 

The  DMA  PSL  system  was  created  by  modifying  a  version  of  the 
PSL  which  was  Installed  on  a  non-Univac  computer  system. 

The  conversion  process  necessitated  changes  to  the  PSL  system 
as  follows: 


a.  Each  entry  point  of  multi-entry  point  modules 

required  an  interface  routine  to  provide  the  correct 
parameter  string.  These  entry  points  are: 


OBFH 

RDBK 

ALFL 

OBKW 

WRBK 

CHFL 

OBSD 

RLBK 

CRFL 

ASFL 

ITRD 

DAFL 

RLFL 

RDLN 

PGFL 

RLAF 

ITWR 

QYFL 

ASBK 

WRLN 

SPJB 

b.  PSL  random  blocks  are  numbered  0,l,2...n,  while 
Univac  random  blocks  are  numbered  1 , 2 , . . . n+1 .  This 
difference  was  reconciled  by  using  an  index  key 
equal  to  the  PSL  block  number  plus  one  when  I/O  was 
required  on  PSL  random  blocks. 

c.  Due  to  differences  in  parameter  passing,  certain 
temporary  variables  were  needed  to  save  parameters 
upon  entry  and  restore  them  upon  exit  from  a  module. 
These  variables  are  indicated  by  HOLD-parameter-name . 
Several  complicated  parameters  were  moved  to  the 
Working  Storage  section  and  temporary  Linkage 
parameters  were  used.  These  temporary  Linkage 
parameters  are  indicated  by  parameter-name  A. 


SECTION  2. 


SYSTEM  DESCRIPTION 


2.1  General  Deacriptlon 

The  PSL  system  is  designed  to  support  the  program  development 
and  maintenance  effort  of  an  entire  organization.  In  a  large 
organization,  the  system  must  support  many  persons  working  on 
different  programming  projects  which  may  be  completely  un¬ 
related.  The  PSL  provides  means  of  maintaining  control  over 
all  the  data  related  to  each  project. 

2.1.1  System  Organization 

One  means  of  control  is  the  convention  used  for  identifying 
and  organizing  the  data  (source  code,  compiled  modules,  test 
data,  etc.)  stored  under  a  project.  This  convention  sub¬ 
divides  the  data,  beginning  with  the  programming  project  level 
and  proceeding  down  to  single  logical  units  of  data.  The 
hierarchical  structure  of  a  project  is  shown  in  Figure  2-01. 

There  are  four  levels  of  data  identification  under  the  PSL. 

The  highest  level  of  identification  is  a  project .  This 
corresponds  to  a  major  programming  operation  and  consists  of 
all  of  the  data  related  to  that  operation. 

The  next  level  of  identification  is  a  library.  Each  project 
is  composed  of  one  or  more  libraries.  Multiple  libraries  can 
be  used  effectively  to  provide  version  control  over  the  pro¬ 
gramming  process  and  to  support  top-down  program  development 
and  integration.  Any  number  of  libraries  may  exist  under  a 
given  project. 

A  library  is  composed  of  segments  of  programming  data  grouped 
according  to  type  of  data.  Each  type  is  stored  in  a  specific 
section  of  a  library.  The  names  of  a  section  is  one  of  the 
following  predefined  section  names: 


a . 

SOURCE 

— 

source  code  statements 

b. 

OBJECT 

- 

object  module  indexes  and  accounting 
records 

c . 

LOAD 

- 

load  module  indexes  and  accounting 
records 

d. 

LINK. 

- 

collector  control 

cards 

e . 

JOB 

- 

Job  control  cards 
execution  of  user 

used  during 
program 

f . 

TEST 

- 

test  data  for  use 

by  user  program 

2-1 


PDL 


8* 


h.  TEXT 


i .  MGMT 


j.  USER 

k.  PROGRAM 


Program  Design  Language  statements 
documentation 
management  data 
PSL/NON-PSL  generated  data 
relocatable  and  absolute  elements 


The  PSL  system  manipulates  the  data  for  each  section  appro¬ 
priately  for  that  type  of  section. 

A  section  is  composed  of  logical  segments  of  data  called  units . 
The  unit  is  the  lowest  level  of  the  naming  convention  used 
under  the  PSL  system.  A  unit  is  therefore  uniquely  identified 
by  the  following  set: 


a . 

Project 

name 

b. 

Library 

name 

c . 

Section 

name 

d. 

Unit  name 

The  actual  structure  and  content  of  a  unit  is  related  to  the 
type  of  section  to  which  the  unit  belongs.  See  Appendix  A  of 
the  PSL  User's  Manual  for  a  more  detailed  discussion  of  the 
structure  of  a  section. 

2.1.2  System  Operation 

The  PSL  system  in  the  batch  mode  is  invoked  by  a  @  ADD ,  @END, 
@ADD  sequence  and  is  directed  to  perform  specific  functions  by 
PSL  Functions  cards.  The  general  functional  capabilities 
available  under  the  PSL  are: 

a.  Initialize  a  project 

b.  Create  sections  in  a  library 

c.  Add,  change,  move,  replace  or  purge  a  unit  of  code 

d.  Print,  punch,  or  write  (to  tape)  a  unit  of  code 

e.  Print  an  index  listing 

f.  Print  the  top-down  structure  of  a  program 

g.  Compile,  link,  execute 

h.  Delete  a  section,  a  library,  or  a  project 

i.  Backup  a  project,  library,  section, 

j.  Restore  a  project,  library,  section,  or  unit 

k.  Collect  and  print  management  data 
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l.  Print  text  material 

m.  Print  by  nuthor  or  character  atring. 

The  PSL  Functiona  are  deacribed  in  detail  in  Section  3  of  the 
PSL  User 'a  Manual.  A  general  system  flowchart  la  shown  in 
Figure  2-02. 

2.1.3  Program  Organisation 

The  PSL  system  organization  is  hierarchically  configured  as 
shown  in  Figure  2-03.  All  user  Jobs  ere  initiated  through  the 
Batch  Control  (BCTL)  processor  under  which  four  categories  of 
program  operations  are  grouped.  The  Function  Processors  group 
contains  the  program  modules  which  are  invoked  to  perform 
specific  PSL  Functions.  The  Support  Routines  group  contains 
the  modules  which  perform  functional  support  operations  that 
augment  the  performance  of  various  PSL  Functions.  PSL  Access 
Routines  are  logically  grouped  to  exhibit  the  modules  that  are 
utilized  to  gain  access  to  the  projects,  libraries,  sections, 
and  units  contained  in  PSL  storage.  The  fourth  logical  group 
contains  those  routines  which  are  used  in  interfacing  with  the 
Exec  8  Operating  System. 

a.  Function  Processors 

Function  Processors  are  subdivided  into  the  following 
categories : 

(1)  Library  Maintenance 

(2)  Unit  Maintenance 

(3)  Program  Processing 

(4)  Output  Processing 

(5)  General  Functions 

(6)  Management  Data  Collection 

Each  of  the  above  categories  is  hierarchically  composed  of 
PSL  modules  which  ere  directly  and  indirectly  Invoked  by  the 
Batch  Control  (BCTL)  processor  to  perform  a  specifically  re¬ 
quested  PSL  Function.  As  will  be  noted,  certain  PSL 
Functions  (i.e.,  COMPILE,  LINK,  EXECUTE,  MDCOLLECT  and 
MDPRINT)  spawn  jobs  which  Invoked  the  appropriate  program 
required  to  complete  the  initial  operation.  All  such 
operations  (i.e.,  activities)  are  spawned  under  the  control 
of  the  BCTL  processor  as  an  extension  of  the  PSL  run  (using 
SADD)  for  any  given  execution  of  the  PSL  system  program. 

b.  Support  Routines 

Support  Routines  may  generally  be  called  upon  to 
augment  the  operation  of  a  functional  processor  routine; 
for  example,  as  Backup  Library  (BKLB)  under  Llbrery 
Maintenance  calls  upon  Backup  Section  (BKSC)  to  provide 
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backup  data  output.  The  PSL  Function  TERMINATE  nay 
optionally  require  that  the  purged  library  section  be 
backed  up  prior  to  release  of  space  so  that  the  Purge 
Section  (PGSC)  module  will  also  call  upon  the  BK.SC 
module  to  provide  backup  data  output.  This  is  the 
general  nature  of  routines  in  the  Support  category  as 
will  be  further  evidenced  in  the  detailed  description 
given  in  subsection  2.2. 

c.  PSL  Access  Routines 

PSL  Access  Routines  are  divided  into  three  categories 

(1)  Basic  I/O 

(2)  Unit  I/O 

(3)  Index  I/O 

Basic  I/O  is  employed  to  create,  access  and  release  file 
space  maintained  under  the  Executive  system  control.  Once 
access  has  been  gained.  Unit  I/O  and  Index  I/O  is  utilized 
to  read  and  write  that  file  space  as  required. 


d.  Executive  Operating  System  Interfac 


e  Routines 


H<vi/5e/?eCUtiVe  °PeratlQ8  System  Interface  routines  are 
divided  into  two  categories: 

(1)  Setup  Parameter  Routines 

(2)  Executive  Request  Routines 

Routines  in  the  first  category  are  written  in  COBOL.  The 
second  category  is  written  in  assembler  (Fieldata) 
language. 

2  •  2  Detailed  Description 

°f  K?*  ?SL  syatem  Pro«ram  modules  is  given  according 
F iaur «>  identlf lcation  numbers  prescribed  in 

Figure  2-03  so  that  a  correspondence  between  paragraphs  of  this 
subsection  and  the  identified  program  modules  is  LtJbUsheJ 

categories*”  i8  de8crlbed  und«r  the  following  subject 
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a.  Program  Operations 

b.  Data  File  and  Table  Descriptions 

c.  Branching  and  Error  Conditions 

A  HIPO  diagram  of  each  program  module  is  provided  to  delineate 
the  operations  performed  and  the  Inputs  and  outputs  processed. 
The  subject  of  program  operations  is  discussed  to  clarify  and 
amplify  the  HIPO  diagram  presentation.  Data  files  and  tables 
are  next  described  to  provide  the  necessary  detail  for  relating 
file  and  table  formats  to  program  operations.  Lastly,  the 
noteable  "condition  codes"  which  may  be  set  during  module 
operation  are  given  for  applicable  process  steps  identified 
In  the  referenced  HIPO  diagram  and  if  a  PSL  message  is 
generated,  the  message  type  (e.g.,  ERR,  ADV ,  etc.)  is  given. 

A  complete  list  of  PSL  messages  is  given  in  Appendix  C  of  the 
PSL  User's  Manual.  Given  the  message  type  and  message  number 
(i.e.,  condition  code)  the  reader  may  determine  the  message 
text  which  identifies  the  nature  of  a  particular  branching  and 
error  condition.  The  program  action  taken  relative  to  the 
given  condition  is  specified  and  explanatory  notes  are  added 
when  needed. 
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2.2.1  BCTL 


Batch  Control 


The  BCTL  module  initiates  and  controls  all  PSL  processing. 

It  obtains  the  function  name  from  the  user's  control  cards, 
determines  which  function  processing  module  should  be  used  and 
invokes  the  appropriate  module.  In  addition,  it  opens  and 
closes  files  used  by  more  than  one  function  processor.  At  the 
completion  of  all  function  processing,  if  any  function  processor 
has  been  Invoked  which  requires  a  spawned  activity  to  complete 
its  processing,  BCTL  spawns  a  job  using  the  JCL  generated  by 
the  function  processor. 

a.  Program  Operations 

HIPO  diagram  1.0  describes  operations  performed. 

Files  MESSAGE-FILE,  SPAWN- JOB-FILE ,  UNIT-CARD-FILE, 
UNIT-LISTING-FILE,  and  UNIT-TAPE-FILE  are  opened  for  output  at 
the  start  of  processing  and  closed  at  the  end  of  processing 
because  various  function  processing  modules  append  information 
to  these  files  as  processing  proceeds  (steps  3  and  5).  The 
INPUT-CARDS  file  is  opened  for  input  because  the  function 
processors  will  read  cards  from  this  file  to  obtain  their 
keyword-values  and  data  cards  as  required.  In  step  7,  each 
function  word,  as  it  is  obtained  by  module  OBFN  from  the 
INPUT-CARD  file  is  compared  against  a  table  of  legal  values. 

If  a  match  is  found,  the  link  name  from  the  table  is  used  to 
load  the  program  which  processes  that  function  (step  8). 

The  appropriate  function  processing  module  is  called.  The 
calling  sequence  for  each  function  processor  uses  input 
argument  PARAMETER-TABLE  and  output  arguments  PARAMETER-TABLE 
and  PROCESSING-STATUS.  If  any  of  the  function  processors 
invoked  has  returned  a  code  indicating  that  it  has  written  JCL 
cards  on  the  SPAWNED-JOB-FILE ,  the  cards  from  the  SPAVN-JOB-FILE 
are  copied  onto  the  FINAL-JOB-SPAWN-FILE  (step  8).  In  front  of 
the  JCL  written  by  the  function  processors,  is  inserted  an  Exec 
8  @ADD  card.  The  file  name  (FJ)  of  the  FINAL-JOB-SPAWN-FILE 
is  passed  to  the  spawn  job  module  (SPJB)  and  its  contents  are 
to  be  submitted  to  the  operating  system  as  a  new  job. 


In  step  12,  the  module,  Release-All-Flle  (RLAF)  is 
called  to  close  and  deallocate  any  PSL  library  files  which  may 
have  been  allocated  by  the  function  processors  but  not  yet 
deallocated . 

b.  Data  File  and  Table  Descriptions 

1.  FINAL— JOB-SPAWN -FILE 

This  file  is  used  to  write  a  copy  of  the  JCL 
cards  generated  by  the  function  processors.  The  JCL  on  this 
file  is  added  to  the  runstream  via  the  executive  request  @ADD. 

2.  PSL- FUNCTION -TABLE 

This  table  contains  a  list  of  functions  currently 
supported  by  the  PSL  system.  A  function  name  may  be  up  to 
twelve  characters  long,  but  only  the  first  four  characters  are 
checked  to  identify  the  function.  Items  contained  in  the  table 
are  : 


05  PSL-FUUCTIONS 


10  PSL— FUNCTION 

-  first  four  charac 
10  FILLER 

10  FILLER 

-  last  8  characters 


OCCURS  28  TIMES 
ASCENDING  K.EY 
PSL— FUNCTION  INDEXED 
BY  PF-INDEX. 

PIC  X (4) . 

ers  of  function  name. 

PIC  X (8) . 

PIC  X  (8) . 
of  function  name. 
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V, 


c.  Branching  and  Error  Conditions 

Function  Condition  Process  Program 

Reference _ Code _ Category _ Action 


Note 


4 

15 

ERR 

7,9 

14 

INF 

8 

1 

ERR 

9 

28 

N/A 

8 

16 

ADV 

11 

6 

ADV 

11 

52 

ERR 

Normal  termination 

Normal  termination 

Bypass  keywords  and  data 
cards;  continue  with 
next  function. 

Continue  processing  with 
next  function 

Spawn  a  job 

Print  message  52;  1 

cannot  spawn  a  job 

Cannot  spawn  a  job 


(1)  This  happens  if  the  project  index  file  from  which  the 
password  for  the  spawned  job  is  to  be  obtained  cannot 
be  assigned.  See  ASFL  description  for  conditions 
which  cause  file  assignment  to  fall. 


i 


i 
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2. 2. 1.1  Function  Processors 

The  modules  In  this  subdivision  of  the  PSL  system  are 
uniquely  called  into  operation  in  response  to  PSL  Function 
requests.  Function  processors  are  further  divided  into  the 
six  operational  categories  depicted  in  Figure  2-03  (1.1). 

2. 2. 1.1.1  Library  Maintenance 

Library  maintenance  functions  perform  the  operations  to 
initialize  a  project  (INITIAL),  create  a  library  section 
(CREATE),  backup  library  sections  (BACKUP),  restore  library 
sections  (RESTORE)  and  purge  a  library  section  or  project 
(TERMINATE) .  The  PSL  system  modules  that  correspond  with 
each  function  are  described  below. 
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2. 2. 1.1. 1.1  1TPJ  -  Initialize  a  Project 


The  module  IIP J ,  which  corresponds  to  the  PSL  function 
**  INITIAL,  establishes  a  project  as  a  PSL  project.  This 
involves  the  creation  and  Initialization  of  a  random  file  to 
serve  as  the  index  for  library-sections  to  be  created  under 
the  project  and  storing  the  password  associated  with  the 
project.  There  is  also  an  option  to  change  the  password. 

a.  Program  Operations 

H1P0  diagram  1.1. 1.1  describes  operations  per¬ 
formed.  If  the  user  provides  parameters  to  be  used  for  file 
creation,  they  are  stored  (step  1)  on  the  FMS-PARAMETER-FILE . 
The  module  Create  File  (CRFL)  is  then  called  (step  2)  to 
create  the  project  index  file  via  the  Executive  Request  @CAT. 

The  module  Initialize  a  Standard  File  (ITSF)  is  then 
called  (step  3)  to  initialize  the  newly  created  file. 


b.  Data  File  and  Table  Descriptions 

No  unique  files  or  significant  tables  are  used. 

c.  Branching  and  Error  Conditions 


Func  t ion 

Condition 

Process 

Program 

Reference 

Code 

Category 

Action 

1 

2 

ERR 

Subsequent  processing 
bypassed 

1 

19 

ERR 

Subsequent  processing 
bypassed 
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c.  Branching  and  Error  Conditiona  (Cont'd). 


1 

32 

ERR 

Subsequent 

bypassed 

processing 

2 

200 

FMS 

Index  file 
subsequent 
bypassed 

not  created; 
processing 

3 

23 

ERR 

Subsequent 

bypassed 

processing  1 

4,6 

6 

ADV 

Subsequent 

bypassed 

processing  1,2 

5,8 

24 

PSL 

Subsequent 

bypassed 

processing  1 

8 

51 

PSL 

Subsequent 

bypassed 

processing 

8 

31 

PSL 

Subsequent 

bypassed 

processing 

e  s  : 

(i) 

If  the  project 
will  be  purged 

index  file  has  just 
before  returning  to 

been  created,  it 
the  calling  program. 

(2) 

The  project  index  file  could  not  be 
description  of  ASFL  for  conditions 
assignment  to  fail. 

assigned.  See 
which  cause  file 
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2. 2. 1.1. 1.2  CRSC 


Create  a  Section 


The  CRSC  module,  which  corresponds  to  the  PSL  **  CREATE 
function,  builds  a  section  in  a  user's  library  after  the 
project  has  been  initialized.  A  random  file  is  created  and 
initialized  to  contain  the  section  index,  control  information, 
selected  section  options,  and  unit  data.  For  a  MGMT  section, 
a  management  plan  unit  is  entered  in  the  newly  created  section. 
The  name  of  the  section  is  entered  in  the  Project  index. 

a.  Program  Operations 

HIPO  diagram  1.1. 1.2  describes  operations  performed. 
Specific  section  options  are  appropriate  only  for  specific 
sections.  If  the  user  specifies  an  option  for  a  section  for 
which  it  is  not  appropriate,  it  is  ignored.  If  a  required 
option  is  not  specified,  a  default  value  is  used.  Table  2-a 
shows  the  options,  the  sections  for  which  they  are  appropriate, 
and  the  default  values.  The  same  sequence  of  module  calls 
(CRFL,  ITSF)  described  in  section  2. 2. 1.1. 1.1  for  the  ITPJ 
module  is  used  to  create  the  random  section  file.  The  section 
options  are  passed  to  ITSF  to  be  stored  in  the  PSL-CONTROL-BLOCK 
of  the  random  section  file. 

b.  Data  File  and  Table  Descriptions 

1.  SECTION-OPTION-TABLE 

The  SECTION-OPTION-TABLE  is  a  two  dimensional 
table  whose  rows  represent  the  nine  possible  PSL  sections  and 
whose  columns  represent  the  six  possible  section  options.  For 
each  section/option  pair  the  table  entry  contains  a  one  if  the 
option  is  appropriate  for  that  section  or  the  table  entry 
contains  a  zero  if  the  option  is  not  appropriate  for  the  section. 
Table  2-a  shows  section/option  correspondence  represented 
by  this  table.  The  items  contained  in  the  table  are: 

05  SECTION-OPTION-TABLE-ENTRY  OCCURS  9  TIMES. 

10  SECTION-OPTION  OCCURS  6  TIMES 

PIC  X. 

—  contains  a  0  or  1  as  described  above 
88  OPTION-PERMITTED  VALUE  1. 
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Section 

Options 

Section 

COMPRESS 

FMS  (1) 

JOB 

ok. 

ok 

L  INK 

ok  ok 

LOAD 

ok 

MGMT 

ok 

ok 

OBJECT 

ok 

PDL 

ok 

ok 

SOURCE 

ok 

ok 

TEST 

ok 

TEXT 

ok 

Default 

YES 

NO 

values 


MGMTDATA 

STANDARD 

SPCHECK 

SPLENGTH 

ok 

ok 

ok  ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

ok 

NO 

(2) 

NO 

(3) 

Notes  : 

(1)  FMS  option  Indicates  whether  or  not  the  user  has 
provided  FMS  parameters  to  override  the  default  values. 

(2)  The  default  value  for  STANDARD  option  is  YES  except 
for  the  MGMT  section.  For  the  MGMT  section,  the 
default  value  is  NO. 

(3)  SPLENGTH  option  Is  not  used  unless  the  user  specifies 
SPCHECK-YES.  Then  the  default  value  is  50  lines. 


Tabic  2 -a . 


PSL  Sections,  Options  and  Default  Values 
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c . 

Branching  and 

Error  Conditions 

Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

Mo  te 

1 

2 

ERR 

Subsequent 

bypassed 

processing 

is 

1 

32 

ERR 

Subsequent 

bypassed 

processing 

is 

1 

19 

ERR 

Subsequent 

bypassed 

processing 

is 

2,7 

7 

ADV 

Subsequent 

bypassed 

processing 

is 

1,2 

3 

36 

ERR 

Subsequent 

bypassed 

processing 

is 

A, 6 

200 

FMS 

Random  section  file  not 
created;  subsequent 
processing  bypassed 

1 

5 

23 

ERR 

Subsequent 

bypassed 

processing 

is 

1 

7 

46 

ERR 

Subsequent 

bypassed 

processing 

is 

1 

7,8 

24 

ERR 

Subsequent 

bypassed 

processing 

is 

1 

Motes : 

(1) 

If  the  random  section  has  already  been  created, 
it  will  be  purged  and  the  index  entry  deleted 
from  the  project  index  file. 

(2) 

The  project  index  file  or 

the  new  random  section 

file  could  not  be  assigned.  See  ASFL  description 
for  conditions  which  cause  file  assignment  to  fall. 
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2. 2. 1.1. 1.3 


BKLB  -  Backup  Library 


Library  aection8  of  a  PSL  project  are  aaved  on  a  backup 
file.  This  backup  file  may  be  used  as  input  to  the  RESTORE 
Function  In  succeeding  PSL  Jobs. 

a.  Program  Operations 

HIPO  diagram  1.1. 1.3  depicts  the  top-level  operations 
of  the  BKLB  module.  The  input  keywords  are  first  validated. 

If  more  than  one  section  is  designated  for  backup  (l.e., 
LIBRARY-ALL  or  SECTION-ALL),  the  project  index  file  is  read  to 
determine  the  library  section  names  corresponding  with  the 
user's  backup  request.  These  names  are  saved  on  a  temporary 
file  and  Immediately  read  back  to  order  the  assignment  of  the 
PSL  sections  which  are  to  be  written  to  the  Backup  Tape  file. 
The  Backup  Section  (BKSC)  module  is  called  to  perform  the 
detailed  backup  procedure  (refer  to  paragraph  2. 2. 1.2.1). 

b.  Data  File  and  Table  Descriptions 

No  special  files  or  tables  are  required. 

c.  Branching  and  Error  Conditions 

Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ Note 


1 

2 

ERR 

Perform  Process  #10 

32 

ERR 

Perform  Process  #10 

98 

ERR 

Perform  Process  #10 

2 

6 

ADV 

Perform  Process  #10 

3 

69 

Bypass  Process  #4 

10 

7 

ERR 

Error  Exit 

Note  : 

(1) 

End-of-index 

condition 

also  terminates  DO  loop 
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2. 2. 1.1. 1.4  RSLB  -  Restore  Library 

A  PSL  Backup  File  is  read  and  designated  user-project 
library  sections  and  units  are  restored. 

a.  Program  Operations 

HIPO  diagram  1.1. 1.4  depicts  the  top-level ' operations 
of  the  RSLB  module.  Each  record  input  from  the  Backup  File 
contains  a  "Record  Sequence  Nbr"  and  a  "Record  Type  Nbr".  The 
section  header  record  has  a  sequence  number  of  one  and  each 
succeeding  record  for  that  section  (through  the  end-of-section 
record)  is  checked  for  an  incremental  increase  of  one  in  its 
sequence  number  value.  The  record  sequence  number  is  verified 
to  detect  omitted  records  in  the  event  that  tape  input  errors 
are  processed  to  skip  unreadable  records.  A  case  figure  is  used 
in  response  to  the  record  type  number  which  will  be  seen  to 
functionally  correspond  with  record  types  generated  by  the 
Backup  Section  (BKSC)  module  described  under  paragraph  2. 2. 1.2.1. 
Once  a  section  header  record  has  been  verified  under  the  CASE  1 
entry  as  to  the  requirement  to  restore  it  and  the  suitability 
of  the  section  contents  (i.e.,  the  section  must  be  newly  created, 
having  no  units  if  the  entire  section  is  to  be  restored),  then 
account  is  kept  of  the  record  sequence  until  the  end-of-section 
record  is  received  or  another  section  header  record  is  received 
before  that  event  occurs.  An  out-of-sequence  record  will  force 
an  end-of-unit  condition  if  a  unit  is  in  the  process  of  being 
restored  and  normal  processing  will  be  resumed  when  the  next 
unit  header  record  for  that  section  is  received.  An  independent 
file  is  dynamically  allocated  and  then  created  using  Exec  8 
Operating  System  Interface  routines.  If  the  FMS  parameters 
record  (i.e.,  record  type  4)  on  the  backup  file  contains  zeroes, 
FMS  default  parameters  are  utilized  except  as  may  be  overriden  by 
FMS  parameters  specified  through  the  RESTORE  Function  FMS  keyword 
value  input.  Independent  files  are  written  in  response  to  record 
type  5  inputs  provided  that  the  prior  step  to  allocate  and  create 
the  file  is  completed  normally.  A  record  type  6  input  causes 
the  independent  file  to  be  closed  and  deallocated.  The  handling 
of  standard  PSL  units  is  somewhat  simpler  since  record  type  3 
inputs  are  read  directly  after  the  unit  is  initialized  into  PSL 
block  storage.  These  inputs  are  written  to  PSL  block  storage 
and  writing  is  terminated  when  record  type  6  is  received. 

Receipt  of  record  type  7  signals  the  end  of  a  section  and  causes 
the  assigned  section  file  to  be  released  and  the  section 
verification  switch  setting  to  change  from  a  "section-verified" 
value  to  a  "section-completed"  value.  When  a  specific  unit  is 
designated  to  be  restored,  then  only  that  unit  will  be  restored 
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in  a  given  RSLB  operation.  If  that  unit  already  exists  in  the 
designated  library  section,  the  matching  backup  file  unit  must 
be  a  corresponding  unit  type  in  order  for  it  to  replace  that 
existing  unit.  Replacement  is  performed  by  first  deleting  the 
existing  unit  and  then  adding  the  backup  file  unit. 

b.  Data  File  and  Table  Descriptions 
1.  BACKUP  FILE 

The  backup  file  consists  of  various  record 
formats.  The  following  File  Description  (FD)  is  utilized  for 
this  file: 

FD  BACKIP-FILE 

LABEL  RECORDS  ARE  STANDARD. 

01  BACKUP-RECORD. 


05 

RECORD-CONTROL-NUMBERS . 

10  RECORD-SEQUENCE-NBR 

PIC 

S9 (9)  COMP 

10  RECORD-TYPE-NBR 

PIC 

S9 (9 )  COMP 

05 

BACKUP-RECORD-DATA 

PIC 

X (384 )  . 

SECTION-HEADER-RECORD . 

05 

FILLER 

PIC 

S9 (9)  COMP 

A 

05 

FILLER 

PIC 

S9  (9)  COMP. 

' 

05 

SECTION-HEADER-DATA. 

10  BACKUP-SECTION-REFERENCE 

• 

15  BACKUP-PROJECT-NAME 

PIC 

X(12)  . 

15  BACKUP-LIB-SEC-NAME. 

20  BACKUP-SECTION-CODE 

PIC 

X(l)  . 

20  BACKUP-LIBRARY-NAME 

, 

PIC 

X (7)  . 

1 

15  FILLER 

PIC 

X(4)  . 

1 

10  BACKUP-SECTION-DATA 

PIC 

X (28)  . 

1 

\ 

05 

FILLER 

PIC 

X(8)  . 

1 

UNIT-HEADER-RECORD . 

1 

05 

FILLER 

PIC 

S9  (9)  COMP. 

! 

05 

FILLER 

PIC 

S9  (9)  COMP. 

! 

05 

UNIT-HEADER-DATA . 

1 

10  BACKUP-UNIT-NAME 

PIC 

X (30) . 

10  ACCOUNTING-INFO 

PIC 

X (194 )  . 

j 

05 

FILLER 

PIC 

X(4 )  . 

T 

! 

1 

STANDARD-UNIT-RECORD  . 

05 

FILLER 

PIC 

S9  (9)  COMP. 

05 

FILLER 

PIC 

S9(9)  COMP. 

10  UNIT-DATA- LINE 
FILLER 
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PIC  X ( 80 )  . 
PIC  X(4)  . 


01  BACK-UP -FMS -PARAMETER-RE CORD . 


05 

FILLER 

PIC 

S9  (9  ) 

COMP. 

05 

FILLER 

PIC 

S9(9) 

COMP. 

05 

FMS -PARAMETERS -DATA . 

10  FMS -PERMISSIONS -DATA 

PIC 

X(6)  . 

10  FMS -OPT IONS— DATA 

PIC 

X  (192) 

05 

FILLER 

PIC 

X(6)  . 

LOAD-UNIT-RECORD . 

05 

FILLER 

PIC 

S9  (9) 

COMP. 

05 

FILLER 

PIC 

S9(9) 

COMP  . 

05 

LOAD-UNIT-DATA 

PIC 

X  (384 ) 

• 

OBJECT-UNIT-RECORD . 

05 

FILLER 

PIC 

S9  (9) 

COMP. 

05 

FILLER 

PIC 

S9  (9) 

COMP  . 

05 

OBJECT-UNIT-DATA . 

10  FIRST-DATA-CHARACTER 

PIC 

X(l)  . 

10  FILLER 

PIC 

X (161) 

. 

05 

FILLER 

PIC 

X (6 )  . 

End-of-unit  (record  type  6)  and  end-of-sectlon  (record  type  7) 
records  do  not  contain  any  backup  record  data  content. 

c.  Branching  and  Error  Conditions 


not eable : 

The  following 

branching 

and  error  conditions 

are 

Function 

Reference 

Condition 

Code 

Message 

Cateaorv 

Program 

Action 

Note 

1 

2 

ERR 

Go  to  Error  Exit 

19 

ERR 

Go  to  Error  Exit 

32 

ERR 

Go  to  Error  Exit 

98 

ERR 

Go  to  Error  Exit 

135 

ERR 

Go  to  Error  Exit 

3 

144 

ERR 

Go  to  Error  Exit 

139 

ERR 

Recover  from  error 

1 

6 

136 

ERR 

Go  to  Error  Exit 

138 

ERR 

Recover  from  error 

2 

7 

4 

ERR 

Recover  from  error 

3 
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c.  Branching  and  Error  Conditions  (continued) 


13 

144 

ERR 

Go  to  Error  Exit 

145 

ERR 

Recover  from  error 

146 

ERR 

Go  to  Error  Exit 

14 

134 

ERR 

Go  to  Error  Exit 

7 

ERR 

Error  Exit 

Notes 


(1)  Windup  unit  restore,  as  required,  and  resume  processing 
at  next  unit  header  record  (type  2). 

(2)  Bypass  section  input  records  (i.e.,  section  not 
verified) . 

(3)  Existing  unit  not  replaced  with  backup  file  unit; 
backup  file  search  continues. 

(4)  Backup  file  search  continues  (as  long  as  valid  record 
types  are  input)  for  a  section  header  record  (type  1)). 
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2. 2. 1.1. 1.5  PGSC  -  Terminate  a  Library  (Purge  Sections) 


The  PGSC  module,  which  processes  the  PSL  **  TERMINATE 
function,  deletes  a  section,  a  library,  or  an  entire  project. 
On  option,  a  backup  copy  of  the  section(s)  terminated  is 
written  to  tape. 

a.  Program  Operations 

HIPO  diagrams  1.1. 1.5  and  1.1. 1.5.1  describe 
operations  performed.  In  diagram  1.1. 1.5  step  8,  module 
Release  All  Files  (RLAF)  is  called  even  though  each  PSL  file 
which  was  assigned  has  already  been  released  with  a  call  to 
Release  a  File  (RLFL)  .  This  is  done  here,  but  not  in  other 
PSL  function  processor  modules,  because  RLFL  simply  marks  a 
released  file  as  being  "not  in  use"  in  its  own  file  table. 
Then,  if  a  subsequent  function  processor  requires  the  use  of 
the  same  file,  it  needs  only  to  re-mark  the  file  "in  use" 
and  the  steps  close,  deallocate,  allocate,  and  open  are  saved. 
However,  in  the  case  of  terminate,  since  the  section  files 
have  been  purged,  these  files  should  not  be  available  to 
subsequent  function  processors. 

b.  Data  File  and  Table  Descriptions 
1.  TEMP-INDEX-FILE 


of  those 
contained 

The  TEMP- 
sections  which 
in  each  record 

INDEX-FILE 
are  to  be 

are : 

is  used  to  store  the 
terminated.  The  items 

names 

•  01  TEMP-INDEX  FILE 

PIC  X (8) . 

-  name  of  library 

section  to 

be  terminated. 

c . 

Branching  and 

Error  Conditions 

Func  t ion 
Reference 

Cond it  ion 
Code 

Message 

Category 

Program 

Act  ion 

Note 

1 

98 

ERR 

Subsequent  processing 
bypassed 

is 

1 

2 

ERR 

Subsequent  processing 
bypassed 

i  s 
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section  file  (XSFL) 


c.  Branching  and  Error  Conditions  (Cont'd.) 


Function 

Reference 

Cond it  ion 
Code 

Message 

Category 

Program 

Act  ion 

Note 

1 

19 

ERR 

Subsequent 

bypassed 

processing 

is 

1 

32 

ERR 

Subsequent 

bypassed 

processing 

1  8 

7,1.1 

7 

from  BKSC 

ADV 

Subsequent 

bypassed 

processing 

is 

1 . 2 

131 

ERR 

Subsequent 

bypassed 

processing 

is 

1 . 4 

205 

FMS 

Normal  processing 
continues 

9,1.4 

Note  : 

other  200's 

FMS 

Subsequent 

bypassed 

processing 

is  1 

(1)  An  FMS  error  which  occurs  when  trying  to  purge  the 
project  index  may  not  be  significant  since  all 
designated  sections  have  already  been  terminated. 
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2. 2. 1.1. 2  Unit  Maintenance 


Unit  maintenance  functions  are  performed  to  add  a  unit 
(ADD),  replace  a  unit  (REPLACE),  change  a  unit  (CHANGE), 
move  a  unit  (MOVE)  and  purge  a  unit  (PURGE) .  The  program 
modules  whose  operations  are  especially  invoked  by  these 
functions  are  described  below. 
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2. 2. 1.1. 2.1  ADUN  -  Add  a  Unit 

The  module  ADUN,  which  corresponds  to  the  PSL  **  ADD 
function,  enters  a  unit  of  data  into  the  SOURCE,  LINK.,  JOB, 

TEST,  TEXT  or  PDL  section  of  a  PSL  library.  The  unit  accounting 
information  is  initialized.  For  unit  in  the  SOURCE  and  PDL 
sections  the  lines  of  data  (source  code)  are  scanned  for 
"INCLUDE"  statements  and  pointers  are  created  in  the  "included" 
unit  to  the  including  unit.  If  the  "included"  unit  does  not 
exist  in  the  section,  a  stub  unit  is  created  to  hold  the  re¬ 
quired  pointers. 

a.  Program  Operations 

HIPO  diagram  1.1. 2.1  describes  the  operations  performed. 
In  step  3,  if  a  stub  unit  already  exists  in  the  section,  the 
only  user  specified  unit  type  which  will  be  accepted  is  INCLUDED. 
This  is  because  the  presence  of  the  stub  unit  indicates  that 
there  exists  in  the  section  an  "INCLUDE"  statement  for  that 
unit  in  the  section  which  implies  a  unit  type  of  INCLUDED. 

Any  other  definition  would  introduce  a  contradiction  in  the 
section.  If  the  user  does  not  specify  unit  type,  the  default 
value  is  determined  as  shown  in  Table  2-b.  In  step  4,  the 
unit  name  is  checked  to  insure  that  it  conforms  to  the  rules 
listed  in  the  PSL  Users  Manual  Figure  3-11  Name  Lengths  and 
Restrictions.  Also  in  step  4,  if  the  user  has  not  provided  a 
language  for  the  new  unit,  a  check  is  made  to  determine  whether 
the  language  is  required.  The  language  keyword  is  required  only 
in  SOURCE  section  for  a  top  unit  (MAIN,  CALLED,  INDEPENDENT)  and 
for  any  included  unit  for  which  a  stub  does  not  already  exist. 

In  step  8,  ADUN  scans  each  statement  for  an  "INCLUDE".  If  the 
"INCLUDE"  is  found,  module  PCLU  is  called  to  update  the  including 
unit  jointers  and  create  a  stub  if  required. 

b.  Data  File  and  Table  Descriptions 

1.  SUPPORTED-LANGUAGE-TABLE 

The  SUPPORTED-LANGUAGE-TABLE  is  a  list  of 
language  names  for  which  PSL  provides  structured  programming 
support.  For  those  language  which  appear  in  this  table,  the 
default  unit  type  is  MAIN.  The  data  items  in  this  table  are: 

05  SUPPORTED-LANGUAGE  OCCURS  7  TIMES 

INDEXED  BY  SP-INDEX 
PIC  X  (8 )  . 

-  name  of  language  supported.  The  entries  are  SPFORT, 
SC0B0L,  SJOVIAL,  and  the  General  Preprocessor 
indicators  ASMG,  C0B0LG,  FORTRANG ,  JOVIALG. 
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dit ions 

Program 

- _  Action _  Note 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is  1 
bypassed 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 

Unit  is  truncated  at  2 

point  where  error  occurred 

Erroneous  "INCLUDE" 
statement  has  "X”  Inserted 
in  front  of  word  INCLUDE 
and  is  not  processed 

Code  minus  400  is  stored 
in  the  unit  accounting 
record  as  the  SP-ERROR-SW 
if  extended  accounting 
data  is  present 

Subsequent  processing  is  3 
bypassed 
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Notes : 


(1) 


See  description  of  nodule  ASFL  for  specific  conditions 
which,  cause  the  "unable  to  assign  file"  condition. 


(2) 


See  description  of  module  ITWR  for  specific  conditions 
which  cause  the  "unable  to  initialize  write"  condition. 


(3)  See  Sperry  Univac  1100  series  Executive  System 
Volume  2  Exec  Appendix  C  section  C.2  Facility 
Request  Status  Codes. 
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DEFAULT  UNIT  TYPE 


Sec  tlon  Unit-Type 

SOURCE 

Structured  language 

(SCOBOL,  SPFORT,  SJOVLAL) 


Stub  already  exists 

INCLUDED 

No  unit  previously  existed 

MAIN 

Unstructured  language 

(ASM,  COBOL,  FORTRAN,  JOVIAL) 

INDEPENDENT 

General  preprocessor  indication  languages 
(ASMG,  COBOLG,  FORTRANG,  JOVIALG) 

MAIN 

PDL 

MAIN 

JOB 

MAIN 

LINK 

MAIN 

TEST 

MAIN 

TEXT 

MAIN 

USER 

MAIN 

USER 

MAIN 

Table  2-b.  Determination  of  Default  Unit  Type 


2. 2. 1.1. 2. 2  RPUN  -  Replace  a  Unit 


The  module  RPUN,  which,  correaponda  to  the  **  REPLACE 
function,  replaces  all  of  the  data  lines  in  a  unit  of  the  SOURCE, 
LINK,  PDL ,  JOB,  TEST,  or  TEXT  section  of  a  PSL  library.  The 
unit  accounting  information  is  not  re-lnit lallzed ,  but  is  updated 
appropriately.  For  units  in  the  SOURCE  and  POL  sections,  the 
lines  of  data  (source  code)  are  scanned  for  “INCLUDE"  statements 
and  pointers  are  created  and  deleted  in  the  Included  unit  to  the 
including  unit  accordingly.  If  the  included  unit  does  not  exist 
in  the  section,  a  stub  unit  is  created  to  hold  the  required 
pointers . 

a.  Program  Operations 

HIPO  diagram  1.1. 2. 2  describes  the  operations  performed. 
In  step  4,  an  Independent  unit  lines  of  data  are  not  scanned  for 
"INCLUDE"  statements.  If  a  stub  unit  already  exists  in  the 
section,  the  unit  type  that  will  be  stored  is  INCLUDED.  This  is 
because  the  presence  of  the  stub  unit  indicates  that  there  exists 
in  the  section  an  "INCLUDE"  statement  for  that  unit  which  has  no 
lines  of  data.  In  step  6,  if  the  unit  is  a  stub  unit  or  indepen¬ 
dent  unit,  the  unit  will  not  be  deleted  via  DELETE  A  UNIT  (DLUN) . 
Instead,  an  independent  unit  will  be  written  over  to  preserve  the 
FMS  file  description.  A  stub  unit's  index  will  be  changed  and 
point  to  lines  of  data.  In  step  10,  if  the  unit  index  cannot  be 
changed  and  the  unit  had  previously  been  deleted,  then  the  unit 
index  will  reflect  that  a  stub  unit  now  exists.  Consequently, 
all  reference  to  the  stored  lines  of  data  are  lost. 

b.  Data  File  and  Table  Descriptions 

There  is  no  significant  files  or  tables  in  this  module. 

c.  Branching  and  Error  Conditions 


Function 

Reference 


Condition  Message 


Code 


Ca  t  eto  rj 


Program 

Action 


No  te 


Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 

Subsequent  processing  is 
bypassed 
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Subsequent  processing  is 
bypassed 


Branching  and  Error  Conditions  (Cont'd.) 


V 


c  . 


3 

26 

ERR 

Subsequent 

bypassed 

processing 

is 

r 

6 

96 

ERR 

Subsequent 

bypassed 

processing 

is  2,3 

7 

43 

ERR 

Subsequent 

bypassed 

processing 

is 

i 

s 

7 

44 

ERR 

Unit  is  truncated  at 

3 

point  where 

error  occurs 

9 

24 

ERR 

Unit  is  not 

stored  in 

section  file 

• 

10 

29 

ERR 

Unit  is  not 

stored  in 

section  file 

11 

66 

ERR 

Unit  is  not 

printed 

12 

37 

ERR 

Section  file  is  not 

released 


Notes: 

(1)  See  description  of  module  ASFL  for  specific  conditions 
which  cause  the  "unable  to  assign  file"  condition. 

(2)  See  description  of  module  DLUN  for  specific  conditions 
which  cause  the  condition. 

(3)  See  description  of  module  ITWR  for  specific  conditions 
which  cause  the  "unable  to  initialize  write"  condition. 
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2. 2. 1.1. 2. 3  CHUN  -  Change  a  Unit 

The  module  CHUN,  which  corres,  nds  to  the  **  CHANGE 
function,  modifies  the  contents  of  a  unit  of  data  in  the  SOURCE, 
LINK,  JOB,  TEST,  TEXT  or  PDL  section  of  a  PSL  library.  The 
module  CHUN,  also  corresponds  to  the  **  MDPLAN  function  which 
modifies  the  contents  of  the  PLAN  unit  in  the  MANAGEMENT 
section  of  a  PSL  library.  Modification  details  are  provided 
on  the  Subfunction  cards  (COPY,  DELETE,  INSERT,  MODIFY,  and 
SHIFT)  which  follow  the  CHANGE  or  MDPLAN  card.  New  source 
statements  follow  the  INSERT  and  MODIFY  Subfunction  cards.  The 
unit  accounting  information  is  not  re-initialized,  but  is 
updated,  appropriately.  For  units  in  the  SOURCE  and  PDL 
sections,  the  lines  of  data  are  scanned  for  "INCLUDE"  statements 
and  pointers  are  created  and/or  deleted  in  the  Included  unit 
to  the  including  unit.  If  the  included  unit  does  not  exist 
in  the  section,  a  stub  unit  is  created  to  hold  the  required 
pointers.  The  module  CHUN  calls  two  subroutines,  the  module 
CHRC  1.1. 2. 3.1  and  module  CHLN  1.1. 2. 3. 2,  that  are  responsible 
for  the  detailed  update  processing.  The  module  CHRC  validates 
and  edits  all  Subfunction  cards,  formats  the  specified  modifi¬ 
cation  details  and  stores  the  formatted  details  in  a  temporary 
file.  The  temporary  file  is  sorted,  then  used  by  the  module 
CHLN.  The  module  CHLN  is  responsible  for  modifying  FMS  file 
descriptions  for  independent  units,  changing  the  language  of 
a  unit,  and  updating  the  unit's  lines  of  data  as  specified  by 
the  modification  details  stored  on  the  temporary  file. 

a.  Program  Operations 

HIPO  diagram  1.1.2. 3  describes  the  operations  per¬ 
formed.  In  step  1,  the  subroutine  module  CHRC  1.1. 2. 3.1  is 
called  to  generate  the  CHANGE-CARD-FILE  file  and  the  FMS- 
PARAMETER— F ILE  file.  The  module  CHRC  also  collects  important 
function  values  necessary  for  further  processing.  In  step  2, 
if  **  MDPLAN  function  is  specified,  the  MANAGEMENT  section 
file  is  accessed.  In  step  3,  the  Plan  unit  is  located  in  the 
MANAGEMENT  section.  In  step  6,  the  sort  key  is  comprised  of 
a  start  line  number,  an  internal  sequence  number,  an  end  line 
number,  and  a  subfunction  type  code.  Each  record  of  the 
CHANGE-CARD-FILE  starts  with  the  sort  key  elements.  In  step 
7,  the  subroutine  module  CHLN  is  called  to  update  the  existing 
unit  by  using  the  FMS-PARAMETER-F ILE  to  change  Independent 
unit  file  description  and  the  CHANGE-CARD-FILE  to  update  unit 
lines  of  data.  The  stored  language  name  of  a  unit  can  be 
changed  independent  of  line  updates. 


2-51 


b. 


Data  File  and  Table  Descriptions 


1.  CHANGE-SORT-FILE 

This  file  is  used  to  store  modification  details. 
The  file  is  then  used  to  update  a  unit  of  data. 

o  01  CHANGE-SORT-RECORD 

05  FILLER  PIC  S9(9)  COMP. 

-  corresponds  to  the  first  line  number  from  the 
Subfunction  card 

05  FILLER  PIC  S9(9)  COMP. 

-  internally  generated  for  new  lines  of  data 

05  FILLER  PIC  S9(9)  COMP. 

-  corresponds  to  the  last  line  number  from  the 
Subfunction  card 

05  FILLER  PIC  X(136) 

-  remaining  modification  details 

2.  SORT-FILE 

Thia  file  is  used  as  the  collation  file  for  the 
1100  Series  executive  Sort/Merge  Program.  The  CHANGE-CARD-FILE 
records  are  identical  to  the  sort  records.  The  sort  key  is 
comprised  of  the  first  four  data  items  of  the  record. 

o  01  SORT-RECORD 

05  S0RT-FLDS 

10  SORT-STAR T-FLD  PIC  S9(9)  COMP. 

10  SORT-SEQ-FLD  PIC  S9(9)  COMP. 

10  S0RT-BND-FLD  PIC  S9(9)  COMP. 

10  SORT-TYPE-FLD  PIC  X(l). 

-  Internal  code  denoting  the  subf  unction*- 

10  FILLER  PIC  X ( 1 35 ) . 

-  remainder  of  the  modification  detail*- 

*Refer  to  DATA  FILE  description  of  module  CHRC  1.1. 2. 3.1  for 
CHANGE-RECORD. 
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3. 


FMS-PARAMETER-F ILE 


HRC  1.1. 

Refer  to 

2.3.1. 

the  DATA 

FILE  description  of  the 

module 

c  . 

Branching  and 

Error  Conditions 

unc  t  ion 
ef  erence 

Cond i t ion 
Code 

Message 

Category 

Program 

Action 

No  te 

1 

10,2,32,19 

ERR 

Subsequent  processing 
bypassed 

is  1 

2 

6 

ERR 

Subsequent  processing 
bypassed 

is 

3 

26 

ERR 

Subsequent  processing 
bypassed 

is 

4 

6 

ERR 

Subsequent  processing 
bypassed 

is 

5 

26 

ERR 

Subsequent  processing 
bypassed 

is 

6 

N/A 

N/A 

N/A 

7 

9,100,69 

ERR 

Subsequent  processing 
bypassed 

is  2 

7 

44,45,48,49 

PSL 

Unit  is  truncated  at  2 

point  where  error  occurred 

7 

43,46,47,96 

PSL 

Subsequent  processing 
bypassed 

is  2 

8 

37 

PSL 

Section  file  is  not 
released 

9 

7 

ERR 

Continue  processing 

3 1  e  8  : 

(1)  See  description  of  the  module  CHRC  for  specific  con¬ 
ditions  which  cause  the  various  conditions. 

(2)  See  description  of  the  module  CHLN  for  specific  con¬ 
ditions  which  cause  the  various  conditions. 
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2. 2. 1.1. 2. 3.1  CHRC 


Edit  Change  Records 


The  module  CHRC  Initiates  all  processing  for  the  **  CHANGE 
and  **  MDPLAN  processing.  It  obtains  the  function  name  from 
the  user's  control  cards  to  determine  which  function  has  been 
specified.  The  module  CHRC  reads  through  all  user's  control 
cards  that  apply  to  the  function,  validating  and  storing  required 
values  and  building  temporary  files  to  be  used  in  update  process¬ 
ing  by  the  modules  CHUN  and  CHLN . 


a.  Program  Operations 


HIPO  diagram  1.1. 2. 3.1  describes  the  operation  performed. 
The  files  CHANGE-CARD-FILE  and  FMS -PARAMETER-FILE  are  opened  at 
the  start  of  processing  and  closed  at  the  end  of  processing 
because  various  user  supplied  control  cards  and  data  cards  are 
translated  into  formatted  records  describing  modification  details. 
The  file  FMS— PARAMETER— FILE  is  written  only  if  the  user  supplies 
FMS  file  changes  for  independent  units.  In  step  7,  two  editing 
processes  are  available,  one  edit  procedure  covers  the  *+  CHANGE/ 

**  MDPLAN  cards  and  their  associated  keywords  and  values.  The 
other  edit  procedure  covers  the  Subfunction  cards  and  their 
associated  keywords  and  values.  In  step  8,  CHANGE-RECORD  is 
initialized  according  to  Subfunction  card  and  related  data  cards. 

The  CHANGE-SORT-RECORD  is  then  written  from  the  CHANGE- 
RECORD.  This  is  done  for  all  Subfunction  cards  and  data  cards. 

In  the  case  of  the  Subfunction  COPY,  file  is  accessed  then  the 
unit,  a  section  to  be  copied.  Is  located  and  read.  The  CHANGE- 
RECORD  is  built  from  the  subfunction  keyword  values  and  from  the 
lines  of  data  in  the  copied  unit.  The  unit  is  read  then 
terminated  and  the  section  file  released.  In  step  9,  the  next 
Subiunction  card  is  obtained  from  user's  control  cards. 

b.  Data  File  and  Table  Descriptions 
1.  CHANGE-CARD-FILE 


Refer  to  module  CHUN  for  file  description. 
2.  FMS -PARAMETER -FI LE 


This  file  stores  the  user  FMS  directives  for 
creating  or  modifying  independent  files. 


•  01  FMS -PARAMETER-RE CORD 


PIC  X (96 ) . 


contains  FMS  file  directives  and  permission  for 
independent  files. 

-  record  format  is  same  as  INPUT-CARD-KEYWORD-VALUE. 


I 


I 


I 


I 


1 


I 
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,<•«** <H muk-  #***»■' Mil* :-*«**••  -V +■*>**-•** .■ 


CHRC  -  Edit  Change  Records 


11.  Close  change-card- file,  I  I  MESSAGE -FILE 


ENDIF 


V 


•  01  CHANGE-RECORD 

05  START-FLD  PIC  S9(9)  COMP. 

-  corresponds  to  line-nbr  or  f lrst-line-nbr  1  in 
the  case  of  ALL. 

05  SEQ-FLD  PIC  S9<9)  COMP. 

-  internally  generated  number  for  new  lines  of  data. 

05  END-FLD  PIC  S9(9)  COMP. 

-  corresponds  to  line-nbr  or  las t-line-nbr  or  high 
value  in  the  case  of  ALL. 

05  CHANGE-TYPE  PIC  X(l). 

-  code  to  denote  subfunction 

05  FILLER  PIC  X (4 ) . 

-  unused  area 

05  SHIFT-INDICATOR  PIC  9(1). 

-  indicates  direction  of  shifting  1  denotes  left,  0 
denotes  right 

05  C0LUMN-NBR  PIC  9(6). 

-  column  at  which  to  start  character  string 
modif ication 

•  05  CHANGE-DATA 

10  NEW-STRING  PIC  X(40). 

-  new  character  string 

10  OLD-STRING  PIC  X(40). 

-  existing  character  string 

05  FILLER  PIC  X(4) . 

-  unused  area 

05  NEW-STRING-LENGTH  PIC  S9(9)  COMP. 

-  number  of  characters  in  new  string 
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V 


05  OLD-STRING-LENGTH  PIC  S9(9)  COMP. 


-  number  of  characters  in  existing  string 
05  FILLER  PIC  X<28)  . 


c  . 

Branching  and 

Error  Conditions 

Func  t ion 

Condition 

Message 

Program 

Reference 

Code 

Ca  testory 

Action 

Note 

6 

19,2,28 

ERR 

Subsequent  processing 
continues 

7 

19,2,32 

ERR 

Subsequent  processing  may 
be  bypassed 

8 

28,26 

ERR 

Subsequent  processing  is 
bypassed 

1 

8 

1 A 

INF 

Subsequent  processing 
continues 

8 

6,47,48 

PSL 

Copy  processing  bypassed 

1 

9 

14 

INF 

NORMAL-TERMINATION 

Notes  : 

(1)  If  the  COPY  Subfunction  is  specified,  see  description 
of  module  ASFL,  module  ITRD ,  and  module  RDLN  for  the 
specific  condition  which  caused  error. 
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2. 2. 1.1. 2. 3. 2  CHLN  -  Change  Unit  Line 

The  module  CELN  modifies  the  contents  of  a  unit  of  data 
and  prints  a  listing  of  the  updated  unit.  The  module  CHLN  j 

uses  the  CHANGE-CARD-FILE  when  updating  lines  of  data  in  the  f 

unit  and  the  FMS-PARAMETER-FILE  when  an  independent  unit  FMS 
file  description  is  being  updated.  The  accounting  information 
of  the  unit  to  be  changed  is  stored  and  updated  to  reflect  j 

changes  to  the  unit. 

I 

a.  Program  Operations 

HI PO  diagram  1.1. 2. 3. 2  describes  the  operation 
performed.  In  step  1,  if  the  user  specifies  that  the  FMS  file 
description  of  an  Independent  unit  is  to  be  changed,  the  FMS 
parameters  are  stored  on  the  FMS-PARAMETER-FILE.  In  step  2, 
the  module  CHFL  performs  the  file  modification.  In  step  6, 
updated  independent  unit  will  be  stored  on  a  temporary  file  ; 

(TEMP-FILE).  The  lines  stored  on  the  temporary  file  will  be  » 

later  used  to  overwrite  the  existing  unit.  In  step  8,  the  T 

CHANGE-SORT-RECORDS  are  read  into  the  CHANGE-TABLE.  All  update  ‘r 

processing  is  controlled  by  the  table.  The  CHANGE-TABLE  can 
hold  a  maximum  of  six  records.  Only  one  insert  data  record  type 
may  be  in  the  table  at  a  time.  After  a  line  of  data  has  been 
processed  through  the  table,  any  CHANGE-TABLE  entry  that  has 
executed  is  removed  from  the  table.  The  table  Is  compressed 
and  new  CHANGE-SORT-RECORDS  are  read  in. 

In  the  case  of  independent  units,  the  updated  data 
line  is  written  to  TEMP-FILE.  In  step  11,  the  Independent  unit 
is  written  over  with  the  data  lines  stored  in  TEMP-FILE. 

b.  Data  File  and  Table  Descriptions 

1.  CHANGE-CARD-FILE 

Refer  to  DATA  FILE  description  of  module 

CHUN  1.1. 2. 3. 

2.  FMS-PARAMETER-FILE 

Refer  to  DATA  FILE  description  of  module 

CHRC  1.1. 2. 3.1. 

3.  TEMP-FILE 

This  temporary  file  is  used  to  store  the  updated 
data  lines  of  an  independent  unit. 
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•  01  TEMP-RECORD 


PIC  X (80)  . 


\ 


r 


i 

i 

! 


I 

l 

I 

£ 

£ 

f 

r 

£ 

I 

I 

I 


-  records  contain  updated  lines  of  data  from  CHANGE 
processing  of  independent  unit  . 

4.  CHANGE-TABLE 


This  table  is  used  to  control  the  modification 
of  a  unit  of  data.  The  table  allows  for  a  maximum  of  six 
entries.  The  only  source  of  input  for  the  CHANGE-TABLE  is  the 
CHANGE-CARD-FILE . 


05 


CHANGE-TABLE-ENTRY  OCCURS  6  TIMES 
10  CHANGE -SEQ-NBR 

15  CHANGE-START-LINE 

-  corresponds  to 
CHANGE-RECORD. 

15  CHANGE-INPUT-SEQ 

-  corresponds  to  the 
CHANGE-RECORD. 

10  CHANGE-END-LINE 

-  corresponds  to  the 
10  CHANGE-TYPE-CODE 

-  corresponds  to  the  CHRN 


10  FILLER 

10  CHANGE-SHIFT-DIRECTION 
10  CHANG E-C0LUMN-NBR 
10  CHANGE-INSERT-LINE 

15  CHANGE-NEW-STRING 
15  CHANGE-OLD-STRING 
10  FILLER 
10  NEW-STR-LENCTH 
10  OLD-STR-LENGTH 


PIC  S9 (9)  COMP.* 
the  START-FLD  of  the 

PIC  S9  (9 )  COMP.* 

SEQ-FLD  of  the 

PIC  S9  (9)  COMP.* 

END-FLD  of  the  CHANGE-RECORD 
PIC  9(10) .* 

PIC  X  (4  )  .  * 

PIC  9(1).* 

PIC  9(6)  .* 

PIC  X (40 )  .  * 

PIC  X (40 )  .  * 

PIC  X  (4 )  .  * 

PIC  89(9)  COMP.* 

PIC  S9  (9)  COMP.* 
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10  CHANGE-REPLACE-COUNTER  PIC  S9(9)  COMP.* 

-  number  of  times  CHANGE-OLD-STRING  is  modified. 
10  FILLER  PIC  X  ( 22 ) . 


*  Corresponds  to  data  Items  of  CHANGE-RECORD, 
c.  Branching  and  Error  Conditions 


Functions 

Reference 

Cond it  ion 
Code 

Mes  sage 
Category 

Program 

Action  Note 

1 

61,69 

ERR 

Subsequent  processing  is 
bypassed 

2 

200 

FMS 

Subsequent  processing  is  1 

bypassed 

3 

47 

PSL 

Subsequent  processing  is  2 

bypassed 

7 

43 

PSL 

Subsequent  processing  is  3 

bypassed 

8 

44,48,45,49 

PSL 

Unit  is  truncated  at  4,5 

point  where  error  occurs 

11 

43,44,45 

PSL 

Unit  is  truncated  at  5 

point  where  error  occurs 

12 

29 

ERR 

Processing  continues 

13 

45 

PSL 

Processing  continues 

14 

66 

ERR 

Processing  continues 

Notes  : 

(1) 

See  Sperry  Univac  1100  series  Executive  System  Volume  2 
EXEC,  Appendix  C  section  C.2  Facility  Request  Status 
Codes  for  specific  condition  which  cause  the  unable  to 
modify  a  file  condition. 

(2) 

See  descript  ion 
which  cause  the 

of  module  ITRD  for  specific  conditions 
"unable  to  initialize  read"  condition. 

(3) 

See  description 
which  cause  the 

of  module  ITWR  for  specific  conditions 
"unable  to  initialize  write  condition. 

(A) 

See  description 
which  cause  the 

of  module  RDLN  for  specific  conditions 
"unable  to  read  line"  conditions. 

(5) 

See  description 
which  cause  the 

of  module  WRLN  for  specific  conditions 
"unable  to  write  line"  condition. 
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2. 2. 1.1. 2. 4  MVUN  -  Move  a  Unit 

The  module  MVUN,  which  corresponds  to  the  **  MOVE 
function,  moves  a  unit  of  data  from  one  project  to  another, 
from  one  library  to  another,  or  within  a  library.  The  section 
must  be  JOB,  LINK,  PDL ,  SOURCE,  TEST,  or  TEXT.  The  module 
MVUN  can  move  a  single  unit  or  an  entire  section  of  a  PSL 
library.  For  units  being  moved  to  the  SOURCE  or  PDL  section, 
the  lines  of  data  are  scanned  for  "INCLUDE"  statements  and 
pointers  are  created  in  the  INCLUDED  unit  to  the  including 
unit.  If  the  included  unit  does  not  exist  in  the  section,  a 
stub  unit  is  created  to  hold  the  required  pointers. 

For  a  MOVE  involving  an  independent  unit,  if  the  space 
assignment  for  the  receiving  unit  is  insufficient  to  hold  all 
source  data  from  the  old  unit,  the  PSL  will  abort.  In  this 
case,  the  user  should  use  the  PURGE  Function  to  purge  the 
receiving  unit  from  the  section  and  rerun  the  job  using  the 
FMS  keyword  on  the  MOVE  Function  to  assign  a  larger  size  to 
the  independent  unit  file.  The  unit  type  is  subject  to  change 
if  the  unit  to  be  moved  does  not  exist  in  the  receiving  section. 

a.  Program  Operations 

HI ’’0  diagram  1.1. 2. 4  describes  the  operations  per¬ 
formed.  In  step  3,  all  the  units  of  a  section  are  to  be  moved. 

The  MOVE  processing  reads  the  index  of  the  sending 
section.  Every  unit  in  the  sending  index  is  validated.  If 
the  unit  can  be  moved,  it  Is  located  in  the  receiving  section. 

In  step  4,  the  sending  unit  cannot  be  a  stub  unit.  If  the 
user  has  specified  "REPLACE-NO",  and  the  receiving  unit  is 
located,  the  unit  cannot  be  moved.  If  the  receiving  unit  has 
a  password  assigned  to  it  then  that  unit  cannot  be  moved.  If 
the  sending  unit  is  not  located  in  the  receiving  section,  the 
unit  will  be  added  to  that  section  and  accounting  information 
updated  (unit  type). 

In  step  5,  if  the  receiving  unit  Is  independent  the 
MOVE  will  write  over  the  existing  unit.  Otherwise,  the 
receiving  unit  will  be  written  in  available  spaces  within  the 
section  file.  If  the  sending  unit  is  Independent  and  the 
receiving  unit  is  not  present,  then  MOVE  processing  creates  an 
independent  receiving  unit  with  ei  her  default  or  user  defined 
FMS  specifications  before  moving  t  e  sending  unit.  In  step  6, 
the  accounting  Information  of  the  receiving  unit  is  updated  to 
reflect  changes  in  unit  type,  higher  unit  name,  lines  in  unit, 
version,  and  modification  number.  In  step  9,  a  single  unit 
is  located  in  the  sending  and  receiving  section  index. 
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b  . 

Data  File  and 

Table  Descriptions 

1.  FMS -PARAMETER- FILE 

CHRC  1.1. 

Refer  to 

2.3.1. 

DATA  FILE 

description  in  module 

c  . 

Branching  and 

Error  Conditions 

Function 

Reference 

Cond i t ion 
Code 

Message 

Category 

Program 

Ac  t ion 

Note 

1 

2,10,19,32, 

103,104 

ERR 

Subsequent  processing 
bypassed 

i  s 

2 

6 

PSL 

Subsequent  processing 
bypassed 

is 

3 

26 

ERR 

Processing  continues 

3 

7 

ERR 

Subsequent  processing 
bypassed 

i  s 

3 

106 

ADV 

Unit  processing  is 
bypassed 

A, 10 

47,43,49,45 

PSL 

Unit  processing  is 
bypassed 

1.2 

4,10 

69 , 102 , 105 

ERR 

Unit  processing  is 
bypassed 

4 ,10 

200 

FMS 

Unit  processing  is 
bypassed 

3 

4 , 10 

133 

ADV 

Unit  processing  is 
bypassed 

5,11 

44,48,49,45 

PSL 

Unit  is  truncated  at 
point  where  error  occurs 

5,11 

38,39,40,55 

ERR 

Processing  continues 

4 

5,11 

96,29,24 

PSL 

Moved  unit  is  not  address 
in  the  receiving  section 

5,11 

4  6 

PSL 

Accounting  information 
updated 

i  s 

6,12 

66 

ERR 

Unit  is  nor 
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Unit  is  not  listed 
(Printed) 


c.  Branching  and  Error  Conditions  (Cont'd.) 

7,13  7  ERR  Unit  is  not  moved; 

Processing  continues 

14  37  Section  files  not  released 

Notes  : 

(1)  See  description  of  the  module  ITRD  for  specific 
conditions  which  cause  the  "unable  to  initialize 
unit"  condition. 

^2)  See  description  of  the  module  ITWR  for  specific 
condition  which  cause  the  "unable  to  initialize 
write  to  unit". 

(3)  See  Sperry  Univac  1100  series  Executive  System  Volume 

2  EXEC,  Appendix  C  section  C.2  Facility  Request  Status 
Codes  for  specific  condition  which  cause  the  unable  to 
modify  file  condition. 

(4)  See  description  of  the  module  PCLU  for  specific 
conditions  which  cr.use  the  rejected  include 
statement  for  unit  condition. 
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2. 2. 1.1. 2. 5  PGUN  -  Purge  a  Unit 


The  module  PGUN,  which  corresponds  to  the  PSL  function 
**  PURGE,  removes  an  individual  unit  from  a  library. 

a.  Program  Operations 

H.IPO  diagram  1.1. 2. 5  describes  operations  performed. 
In  step  4,  a  unit  to  be  purged  is  checked  for  unit  type  if 
the  MGMT  section  has  been  specified.  This  is  because  only  the 
COLLECTION  units  can  be  purged  with  the  purge  function  in  the 
MGMT  section.  If  a  unit  is  not  found  in  the  section  index, 
step  8  attempts  to  purge  an  independent  unit  file  anyway. 

This  is  because  it  is  possible  for  the  independent  unit  file 
to  have  been  created  by  a  previous  PSL  function  but  the  index 
entry  not  to  have  been  entered  due  to  an  interruption  in  the 
processing.  The  most  common  situation  is  that  an  INDEPENDENT 
unit  is  being  added  by  module  ADUN  (or  MVUN  OR  RSLB)  but  the 
file  space  allocated  by  the  user  is  exhausted,  and  a  program 
abort  occurs  before  the  index  entry  has  been  entered. 


b.  Data  File  and  Table  Descriptions 


No  unique 

data 

files  or 

significant  tables  are  used. 

c  . 

Branching 

and 

Error  Conditions 

Func  tion 
Reference 

Cone ition 
Code 

Message 

Category 

Program 

Action  Note 

1 

2 

ERR 

Subsequent  processing  is 
bypassed 

1 

19 

ERR 

Subsequent  processing  is 
bypassed 

1 

32 

ERR 

Subsequent  processing  is 
bypassed 

2 

7 

ADV 

Subsequent  processing  is  1 

bypassed 

3 

26 

ERR 

Attempt  to  purge  indepen¬ 
dent  unit  file 

4,5 

Error  return  from  DLUN .  2 

Unit  not  purged 

6 

154 

N/A 

Wrong  unit  type  for  MGMT 
section.  Unit  not  purged. 

2-70 


V 


Notes 


(1)  See  description  of  module  ASFL  for  detailed  list 
of  causes  of  "unable  to  assign  a  file"  condition. 

(2)  See  description  of  module  DLUN  for  detailed  list 
of  causes  of  "unable  to  delete  unit"  condition. 
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2. 2. 1.1. 3  Program  Processing 

Program  processing  functions  are  performed  to  compile 
a  module  (COMPILE),  link,  a  program  (LINK)  and  execute  a 
program  (EXECUTE).  The  program  modules  whose  operations 
are  especially  invoked  by  these  functions  are  described 
below . 
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2. 2. 1.1. 3.1  CMML  -  Compile  a  Module 


The  user-designated  SOURCE  section  unit  is  located  and  a 
compilation  procedure  is  identified  by  the  SOURCE  unit  language 
or  a  user-designated  procedure  name.  The  identified  procedure 
is  located  in  the  System  project  PSL  library  JOB  section  and 
additional  file  reference  information  is  added  to  the  Job 
control  cards  stored  there.  A  job  is  spawned  using  these 
control  cards  to  direct  the  required  compilation  activities 
including  precompiler  operation,  when  applicable. 

a.  Program  Operations 

HIPO  diagram  1.1. 3.1  depicts  CMML  program  operations. 

If  the  user-desginated  "top"  (i.e.,  MAIN,  CALLED,  or  INDEPENDENT) 
unit  is  found,  Che  accounting  record  of  that  unit  is  updated  to 
indicate  the  compilation  attempt  (provided  that  the  section 
option  MGMTDATA-TES  was  chosen  when  the  SOURCE  section  was 
created).  If  compiler  object  code  output  is  to  be  provided 
(from  the  spawned  job  procedure)  then  an  OBJECT  section  must 
exist  in  the  project  and  library  specified  by  the  Parameter 
Table  entries  to  receive  the  object  index  which  is  to  be  stored 
as  a  relocatable  element  unit  in  the  PROGRAM  section  under  the 
same  unit  index  name  as  the  top  SOURCE  code  unit  identified  by 
the  user.  If  that  unit  is  not  entered  in  the  OBJECT  section, 
it  is  added  to  that  section.  A  unit  accounting  record  is 
written  to  PSL  OBJECT  section  storage  to  contain  the  required 
management  data  statistics.  If,  on  the  other  hand,  the  unit 
is  already  stored  in  the  OBJECT  section,  the  unit  accounting 
record  is  modified  to  update  the  management  data  statistics. 

The  applicable  compilation  procedure  Is  then  retrieved  and  the 
job  control  cards  are  processed  and  modified  to  insert  the 
additionally  requried  file  reference  information  before  being 
written  to  the  Spawned  Job  file. 

b.  Data  File  and  Table  Descriptions 

No  special  files  or  tables  are  utilized. 

c.  Branching  and  Error  Conditions 

The  following  branching  and  error  conditions  apply 
to  HIPO  diagram  1.1. 3.1: 


2 .2 . 1. 1. 3. 1. 1  PPCB  -  Pre-process  COBOL 


The  module  PPCB  obtains  source  code  from  one  or  more 
Source  sections  of  the  user's  PSL  libraries  and  translates 
structured  COBOL  code  into  standard  ANS  COBOL.  The  special 
structuring  control  statements  which  are  translated  are: 

IF,  ELSE,  END  IF ,  DO,  ENDDO ,  CASEENTRY,  CASE,  ELSECASE,  ENDCASE 
and  INCLUDE.  All  other  statements  which  appear  in  the  input 
source  code  are  passed  to  the  compiler  unchanged  (except  that 
any  statement  appearing  before  a  structuring  statement  will 
have  a  period  added  to  it  if  none  already  exists). 

a.  Program  Operations 

HIPO  diagrams  1.1. 3. 1.1  and  1.1. 3. 1.1.1  describe 
operations  performed.  More  detailed  HIPO  diagrams  can  be  found 
in  the  Structured  Programming  Series,  Volume  II  Precompiler 
Specifications,  May  1975  Section  5.  HIPO  diagram  1.1. 3. 1.1.1 
describes  operations  which  have  been  added  to  the  original 
COBOL  precompiler,  described  in  the  reference  document,  to 
handle  the  INCLUDE  statement. 

b.  Data  File  and  Table  Descriptions 
1.  PRECOMPILER-OUTPUT  File 

The  PRECOMPILER-OUTPUT  file  contains  the  source 
code  generated  by  the  precompiler  from  the  user's  input  code. 

Only  the  special  structuring  control  statements  cause  translated 
code  to  be  generated  on  this  file.  All  other  Input  statements 
are  written  to  the  PRECOMPILER-OUTPUT  file  unchanged,  with  the 
exception  that  a  period  is  added  to  the  end  of  those  statements 
which  appear  immediately  preceding  one  of  the  structuring 
statements,  if  one  did  not  previously  exist.  The  translations 
for  the  structuring  statements  IF,  ELSE,  ENDIF,  DO,  ENDDO, 
CASENTRY,  CASE,  ELSECASE  and  ENDCASE  are  shown  in  the  PSL  User’s 
Guide,  June  1977,  Section  G.5.  Additional  code  is  also 
generated  by  the  precompiler  on  the  PRECOMPILER-OUTPUT  file  under 
the  following  conditions: 

•  Preceding  the  first  statement  of  the  module. 

•  In  place  of  each  INCLUDE  statement  for  which  a  real 
unit  of  code  is  found  in  the  input  PSL  libraries. 

•  lollowing  the  last  statement  of  each  unit  of  code 
processed . 
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END  IF 


•  In  place  of  each  INCLUDE  statement  for  which  a  stub 
unit  is  found  in  the  input  PSL  libraries. 

•  In  place  of  each  INCLUDE  statement  for  which  an  error 
is  detected. 

•  Following  the  last  line  of  the  module. 

Figure  2-04  shows  the  code  which  is  generated  in  these  cases. 

2.  Data  Storage  Push  Down  Stacks 

Data  required  by  the  precompiler  is  stored  in  one 
dimensional  arrays  called  push  down  stacks.  All  stacks  except 
the  OUTPUT-STACK  are  accessed  on  a  last  in  fiyst  out  (LIFO) 
basis.  The  program  uses  six  such  stacks.  In  all  stacks  the 
index  always  points  to  the  next  available  storage  entry  in  the 
stack. 

•  LABEL-STACK  indexed  by  LABEL-NEXT-OPEN-ENTRY 

Each  entry  is  13  characters  in  length.  The  entries  in 
this  stack  hold  the  internally  generated  paragraph- 
names  which  the  precompiler  produces. 

•  NEST-STACK-ENTRY  indexed  by  NEST-NEXT-OPEN-ENTRY 

Each  time  the  start  of  a  new  figure  is  detected,  a 
new  entry  is  placed  in  this  stack.  It  Is  7  charac¬ 
ters  in  length  and  contains  2  alphabetic  characters 
to  identify  the  type  of  figure  started  and  an 
integer  in  the  range  of  1  through  9999.  This  integer 
is  left  justified  and  padded  on  the  right  with  dashes 
and  is  used  to  start  all  paragraph-names  generated 
for  that  f lgure . 

•  CONDITIONAL-STACK  indexed  by  COND-NEXT-OPEN-ENTRY 

This  stack  holds  the  COBOL  conditional  expression  which 
follows  the  WHILE/UNTIL  keywords  on  the  structured 
DO  statements.  It  is  saved  until  the  corresponding 
ENDDO  is  detected  at  which  point  the  stored  conditional 
expression  and  its  associated  IF  or  IF  NOT  are  moved 
from  this  stack  to  the  output  stack.  The  entries  in  this 
stack  are  86  characters  in  length.  In  addition  to  the 
80-column  record  holding  the  condition  (which  may 
extend  over  more  than  one  record)  the  entry  contains  a 
5-digit  source  Input  sequence  number  and  a  special 
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Figure  2-04.  Code  Generated  by  COBOL  Precompiler  PPCB 


flag  to  delimit  the  start  of  the  conditional  from  the 
one  below  it,  a  situation  which  occurs  when  DO  figures 
are  nested . 

•  CASE-STACK  indexed  by  CASE-NEXT-OPEN-ENTRY 

This  stack,  holds  the  identifier  which  appears  on 
the  CASENTRY  structure  verb.  It  is  saved  until  the 
ELSECASE  (or  ENDCASE  if  no  ELSE CASE  is  present)  corres¬ 
ponding  to  the  appropriate  CASENTRY  is  detected.  The 
identifier  is  then  removed  from  the  stack  and  used  as 
part  of  the  GO  TO  . . .  DEPENDING  ON  statement  which  is 
generated  at  the  end  of  the  CASE  Statement.  Each  entry 
is  30  characters  long.  Also  associated  with  each 
identifier  is  a  CASE-LABEL— POINTER  index  which  contains 
the  starting  value  of  the  index  of  the  CASE-LABEL-STACK 
at  which  the  paragraph-names  for  this  CASE  starts. 

•  CASE-LABEL-STACK  indexed  by  CASE-LABEL-NEXT-OPEN-ENTRY 

This  stack  holds  the  paragraph-names  associated  with 
the  CASE  verbs  that  are  part  of  a  CASE  statement.  The 
format  of  these  names  are  as  indicated  in  Section  A 
with  the  numbers  on  che  CASE  verb  being  used  to  pad  the 
last  three  characters  of  the  paragraph-name.  These 
paragraph-names  are  not  anly  generated  as  entry  points 
to  the  CASE  code  block  when  a  CASE  verb  is  encountered, 
but  are  also  saved  in  the  stack  until  the  end  of  the 
CASE  figure  is  detected  for  use  in  the  generated 
GO  TO  ...  DEPENDING  ON  statement. 

•  SOURCE-OUTPUT-STACK  indexed  by  SO-NEXT-OPEN-ENTRY 

SO -CURRENT -NON -BLANK 
SO-PREVIOUS -NON -BLANK 
SO-CURRENT-KEYWORD 
SO-PREVIOUS -STATEMENT 
SO-NEXT-KEYWORD 

This  stack  is  the  one  in  which  all  precompiler  output, 
including  generated  code  is  placed,  prior  to  being 
written  to  the  output  file.  It  contains  six  different 
indices  which  must  be  manipulated  as  output  records 
are  placed  in  the  stack  and  removed.  Its  manipulation 
is  complicated  by  the  fact  that  until  the  current 
keyword  is  identified  and  processed,  it  is  necessary  to 
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bold  the  previously  processed  statement  In  the  stack. 
Xhll  l|  because  if  tha  keyword  currently  being  processed 

S  *•*§!••  fedbi  it  is  necessary  to  add  a  period  to 
•  M|  of  (he  statement  preceding  it  (if  one  is  not 
vmIv  imh).  Therefore  it  is  not  possible  to  route 
4  eteteaent  to  the  output  file  as  soon  as  it  is 
processed*  A  second  complication  arises  when  scanning 
COF  the  end  of  g  Character  string  associated  with  a 
keyword  euch  ee  e  conditional  on  an  IF  or  DO.  The  end 
Of  e  conditional  is  signaled  by  the  detection  of  an 
AVI  COiOL  or  structured  programming  verb.  The  records 
containing  thfie  data  are  all  kept  in  the  output  stack 
end  therefore  indices  ere  required  to  indicate  their 
positlenif  A  description  of  the  function  of  the  six 

indices  follows i 

0.  I0-VIXT-09SN-BNTRY 

This  index  points  to  the  first  entry  in  the  output 
Stepk  Which  does  not  contain  a  program  statement. 
This  is  the  position  into  which  the  next  card 
inece  to  be  processed  will  be  pieced.  (Note:  SO 

s|»n4«  for  source-output.) 
b.  so-curriwt-non-blank 

This  index  points  to  the  last  entry  in  the  output 
■reck  which  contains  e  non-blank  program  statement. 
When  looking  for  e  keyword,  the  statement  pointed 
to  be  SO-CURRBNT-NON-BLANK  Is  examined. 

C.  IQ-PRIVIOUI-NOW-BIAWK 

This  indsn  points  to  the  next  to  the  last  entry 
in  the  output  stack  which  contains  a  non-blank 
proof en  statement.  When  looking  for  the  next 
0Q90L  at  structuring  verb,  the  end  of  the  last 
0Q9AI  statement  (iq*u«t-statement)  preceding 
thst  vgrh  is  sot  from  io-previous-non-blank. 

d.  «0-CURR9|T-MX¥0R0 

Thlf  India  points  to  the  entry  in  the  output  stack 
whiih  Mhlslns  the  first  character  of  the  keyword 
bflni  processed •  When  looking  for  a  keyword, 
■0-CtjR|INT-|t|YW0RD  is  set  from  SO-CURRENT-NON-BLANK . 


SO-PREVIOUS— STATEMENT 


This  Index  points  to  the  entry  In  the  output 
stack  which  contains  the  last  line  o£  the  COBOL 
or  structuring  statement  previous  to  the  state¬ 
ment  being  processed.  When  looking  for  the  next 
COBOL  or  structuring  verb  for  processing,  S0- 
PREVIOUS-STATEMENT  is  set  from  SO-PREVIOUS-NON- 
BLANK. 

SO-NEXT-KEYWORD 

This  index  points  to  the  entry  in  the  output 
stack  which  contains  the  first  character  of  the 
word  following  the  keyword  currently  being 
processed.  When  looking  for  the  COBOL  or  struc¬ 
turing  verb  which  starts  the  next  statement  to 
be  processed,  it  must  first  be  determined  if  the 
statement  containing  that  verb  has  already  been 
read  from  the  input  file.  If  the  SO-NEXT-KEYWORD 
index  points  to  the  same  statement  as  the  S0- 
CURRENT-KEYWORD  index,  the  next  statement  has 
not  yet  been  read.  This  is  true  because  of  the 
rule  that  each  new  statement  must  start  on  a  new 
Hue.  Thus,  if  the  next  keyword  occurs  on  the 
same  line  as  the  current  keyword,  it  cannot  be 
the  beginning  of  a  new  statement. 


c.  Branching  and  Error  Conditions 


Errors  which  affect  processing  and  the  resulting 
action  are  described  in  the  PSL  User’s  Manual,  June  1977 
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2. 2. 1.1. 3. 1.2  PPFT  -  Preprocess  FORTRAN 


The  PPFT  aodule  obtains  source  code  from  one  or  more  source 
sections  o£  the  user's  PSL  libraries  end  translates  structured 
FORTRAN  code  Into  standard  FORTRAN.  The  special  structuring 
control  stateaents  vhlch  are  translated  are:  IF ,  ELSE,  ENDIF, 

DO  WHILE,  DO  UNTIL,  ENDWHILE,  ENDUNTIL,  ENDDO,  CASE  OF,  CASENTRT , 
CASE,  CASEELSE,  ELSECASE,  ENDCASE,  INVOKE,  BLOCK,  ENDBLOCK  and 
INCLUDE.  All  other  stateaents  vhlch  appear  In  the  Input  source 
code  are  passed  to  the  coapller  unchanged. 

a.  Program  Operations 

HIPO  diagram  1.1. 3. 1.2  describes  operations  performed 
by  the  PPFT  module.  Additional  Information  regarding  the 
capability  as  It  vas  developed  by  the  General  Research  Corporation 
for  RADC  aay  be  obtained  froa  the  Final  Technical  Report, 
Structured  Prograaalng  Translators,  RADC-TR-76-253 ,  Voluaes 
I  to  V. 
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2 . 2 . 1 . 1. 3 . 1. 3  PPJV  Preproceis  JOVIAL 

The  module  PPJV  obtains  source  code  from  one  or  more 
Source  sections  of  the  user's  PSL  libraries  and  translate 
structured  JOVIAL  code  Into  standard  JOVIAL,  (JOVIAL-J-3) 
as  defined  In  the  Air  Forces  document  AFM  100-24  with 
modifications,  as  Indicated  In  the  JOCIT  Compiler  User's 
Manual.  The  special  structuring  control  statements  which 
are  translated  are:  IF,  ELSE,  ENDIF,  DO,  ENDDO ,  CASENTRY , 
CASE,  ELSECASE,  ENDCASE  and  INCLUDE.  All  other  statements 
which  appear  In  the  Input  source  code  are  passed  to  the 
compiler  unchanged. 

a.  Program  Operations 

HIPO  diagrams  1.1. 3. 1.3  and  1.1. 3. 1.3.1  describe 
operations  performed.  The  following  HIPO  diagrams  depicts 
the  processing  of  the  Structured  Programming  JOCIT/JOVIAL 
precompiler  as  produced  under  U.  S.  Air  Force  (RADC)  contract 
#F30602-76-C-0166.  In  step  2,  the  OPTION-CARDS  file  is 
read  to  obtain  the  preprocessor  options  (MAP  and  LIST) . 

If  no  card  Is  present  the  default  options  which  are  defined 
in  the  Data  Division  are  retained.  In  step  4,  HIPO  diagram 
1.1. 3. 1.3.1  describe  operations  which  have  been  added  to 
the  original  JOVIAL  precompiler  to  handle  the  INCLUDE 
statements.  Each  input  record  Is  processed,  if  a  listing 
has  been  requested  In  the  option  card  the  record  Is  printed. 
In  step  6,  the  JOVIAL  precompiler  generates  standard  JOVIAL 
statements  to  replace  the  structured  verb  statements.  The 
precompiler  also  checks  the  nesting  of  structured  figures 
and  the  syntax  associated  with  structured  code. 

b.  Data  File  and  Table  Descriptions 

1.  Optlon-CARDS  File 

The  Option-Cards  file  contains  a  single  80 
character  Input  record  which  contains  keywords  to  Indicate 
whether  a  listing  of  the  precompiler  JOVIAL  Input  Is  to  be 
generated  and  whether  the  sequence  numbers  on  the  optional 
precompiler  source  listing  are  to  be  placed  In  columns  73 
through  80  of  the  precompiler  output. 

2.  JOVIAL-OUTPUT  File 

The  JOVIAL— OUTPUT  file  contains  the  source 
code  generated  by  the  precompiler  from  the  user's  Input 
code.  Only  the  special  structuring  control  statements 
cause  translated  code  to  be  generated  on  this  file.  All 
other  input  statements  are  written  to  the  JOVIAL-OUTPUT 
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file  unchanged.  The  translations  for  the  structuring  statements 
IF,  ELSE,  ENDIF ,  00,  ENDDO,  CASENTRY ,  CASE,  ELSECASE,  and 
ENDCASE  are  shown  In  the  PSL  User's  Guide,  Section  H.5. 
Additional  cods  Is  also  generated  by  the  precompiler  on  the 
JOVIAL-OUTPUT  file  under  the  following  conditions. 

e  Preceding  the  first  statement  of  the  module. 

•  In  place  of  each  INCLUDE  statement  for  which  a 
real  unit  of  code  Is  found  in  the  Input  PSL 
libraries . 

•  Following  the  last  statement  of  each  unit  of  code 
processed . 

e  In  place  of  each  INCLUDE  statement  for  which  a  stub 
unit  Is  found  in  the  Input  PSL  libraries. 

e  In  place  of  each  INCLUDE  statement  for  which  an 
error  Is  detected. 

e  Following  the  last  line  of  the  module.  Figure  2-05 
shows  the  code  which  is  generated  In  these  cases. 
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Figure  2-05.  Code  Generated  by  JOVIAL  Precompiler  PPJV 


3 


PRINT-OUT  Pile 


The  PRINT-OUT  file  generates  the  listing  of 
the  source  lines  to  be  input  into  the  JOVIAL  precoapller. 

e  01  JOVIAL-PHRASES-AND-LABELS 

This  data  group  contains  all  the  standard  JOVIAL  formats 
which  are  used  by  the  precompiler  in  translating  structured 
JOVIAL  statements. 

e  01  LINE-HOLD-STACK1 

This  stack  contains  the  additional  code  which  is  generated 
by  the  precompiler  on  the  JOVIAL-OUTPUT  file  as  Indicated  in 
the  description  of  JOVIAL-OUTPUT. 

e  01  CASE-NUMB-STACK1 

This  stack  may  hold  a  maximum  of  200  case  numbers.  The 
stack  contains  the  structured  figure  number  and  the  interger 
associated  with  the  case  statement.  Once  a  CASE  statement  is 
terminated  with  an  ENDCASE,  the  CASE  numbers  associated  with 
it  are  removed  from  the  stack. 

e  01  NEST-STACK 

This  stack  contains  the  starting  and  intermediate  structure 
words  of  each  structure  set  for  which  no  terminating  word  has 
yet  been  encountered.  The  maximum  depth  to  which  figures  may 
be  stacked  is  set  at  300. 

e  01  NEST-NUMBER-STACK1 

This  stack  contains  the  nest  numbers  of  each  structured 
figure  which  at  any  time  in  the  program  has  not  yet  been 
terminated.  The  maximum  depth  to  which  figures  may  be  nested 
is  set  to  50. 

e  01  CONDITION-STACK1 

The  conditions  on  DO  statements  are  saved  in  the  stack  and 
removed  when  the  corresponding  ENDD0  is  detected.  The  stack 
is  set  to  hold  50  cards  maximum. 

e  01  CONDITION-COUNT-STACK1 

The  COND IT  ION— COUNT— STACK  is  used  with  DO  statements 
to  keep  track  of  the  number  of  cards  in  each  of  the  conditions 
stacked  in  the  CONDITION-STACK. 


descriptions  from  Structured  Programming  JOCIT/JOVIAL 
Precompiler  User's  Manual  -  April  1977. 
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2 . 2  „fTl  .3.1.4  PPGL  -  General  Preprocessor 

The  General  Preprocessor  provides  an  alternative  method 
for  processing  unstructured  source  code.  The  General  Pre¬ 
processor  allows  unstructured  code  the  features,  data 
compression  and  INCLUDE  processing.  Data  compression  is 
obtained  by  storing  unstructured  code  in  the  SOURCE  section 
file  in  random  blocks.  Formerly,  unstructured  code  was  only 
stored  in  independent  files  as  sequential  card  images. 

INCLUDE  processing  is  handled  at  compilation  time.  When 
initiated  by  the  COMPILE  function,  the  General  Preprocessor 
scans  the  unstructured  source  code  for  INCLUDE  statements 
and  Inserts  the  included  units.  At  present  the  General 
Preprocessor  accomodates  four  languages:  ASM,  COBOL,  FORTRAN, 
and  JOVIAL. 

a.  Program  Operations 

HIPO  diagram  1.1. 3. 1.4  describes  operations 
performed  by  the  PPGL  module.  PPGL  calls  READ-FOR-COMP ILE 
(RDCM)  until  the  end-of -module  condition  is  encountered. 

Upon  return  from  RDCM  the  LINE-STATUS  is  set  to  Indicate  one 
of  the  following  conditions:  START  OF  MODULE  (HIPO  process 
steps  5,6,7,9,10),  START  OF  UNIT  (process  steps  5,8,9,10), 

END  OF  MODULE  (process  steps  11,12,13),  END  OF  UNIT  (process 
steps  11,14,15),  INCLUDED  STUB  (process  steps  16,17,18), 
INCLUDE  ERROR  (process  steps  16,17,18)  or  LINE  OF  DATA, 
i.e.,  any  source  line  which  is  not  one  of  the  preceding 
conditions,  (process  steps  3  and  4).  After  the  first  call 
to  RDCM  (LINE  STATUS  -  START  OF  MODULE),  PPGL  determines 
the  UNIT  LANGUAGE  and  prepares  the  comment  areas  for  the 
given  language.  The  generated  comments  are  discussed  below. 

b.  Data  File  and  Table  Descriptions 

PRECOMPILER-OUTPUT  FILE 

The  PRECOMPILER-OUTPUT  File  contains  the  source 
code  generated  by  the  General  Preprocessor  from  the  user's 
input  source  code.  The  INCLUDE  statements  are  processed  and 
the  Included  units  are  copied  in-line  into  the  PRECOMPILER- 
OUTPUT  File.  All  other  input  statements  are  written  to  the 
PRECOMPILER-OUTPUT  File  unchanged.  Additional  comments  are 
generated  by  PPGL  under  the  following  conditions: 

•  Preceding  the  first  statement  of  the  module. 

•  In  place  of  each  INCLUDE  statement  for  which 
a  real  unit  of  code  is  found  in  the  input 
PSL  libraries. 
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•  Following  the  lest  statement  of  each  unit  of 
code  processed. 

•  In  place  of  each  INCLUDE  statement  for  which 

a  stub  unit  is  found  in  the  input  PSL  libraries. 

•  In  place  of  each  INCLUDE  statement  for  which  an 
error  is  detected. 

•  Following  the  last  line  of  a  COBOL  module. 

•  Preceding  the  last  line  of  an  ASM,  FORTRAN,  or 
JOVIAL  module. 

Figures  2-06,  2-07,  2-08  and  2-09  show  the  code  which  is 
generated  in  these  cases. 

c.  Branching  and  Error  Conditions 

Errors  are  detected  and  handled  by  RDCM.  See  Section 
2. 2. 1.2. 4.1  RDCM  (page  2-255)  for  error  conditions  and  messages. 
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Figure  2-06.  Code  Generated  by  PPGL  for  COBOL  Hodul 


Figure  2-08.  Code  Generated  by  PPGL  for  ASM  Modules 


2. 2. 1.1. 3. 2  LKPG  -  Link  a  Program 

A  user-program  Is  identified  through  a  LINK  section  unit 
input  as  one  or  more  object  modules  whose  names  appear  on  LINK 
unit  INCLUDE  cards.  For  each  object  name  which  is  a  stub,  a 
stub  unit  is  compiled.  The  INCLUDE  cards  are  changed  to 
Collector  IN  cards  and  all  of  the  Collector  control  cards  in 
the  LINK  unit  are  output  to  a  spawned  job  which  produces  and 
stores  the  user-program  load  module. 

a.  Program  Operations 

HIPO  diagrams  1.1. 3. 2  and  1.1. 3. 2.1  depict  the 
operation  of  the  LKPG  module.  After  successfully  verifying  and 
storing  the  keyword  value  input,  the  LINK  unit  specified  is 
searched  for  ir  up  to  nine  project  libraries.  If  no  error 
condition  exists,  the  LINK  unit  is  processed  by  PPLK  to  create 
object  stubs  an*?  IN  -ards.  LKPG  then  produces  an  @MAP  card 
directing  the  absolute  element  to  be  stored  in  the  proper 
PROGRAM  section  3ext  LKPG  Invokes  the  Collector  with  the  Map 
File  from  P!*.L*  us  the  Collector  control  card  input.  Finally 
the  LOAD  section  is  accessed  to  store  accounting  Information 
for  the  newly  created  LOAD  unit. 

b.  Data  File  and  Table  Descriptions 

1.  PROJECT  LIBRARY  TABLE 

This  table  is  generated  from  project  and  library 
keyword  inputs.  Up  to  nine  project  library  combinations  may  be 
specified.  The  following  table  format  applied: 

e  01  PROJECT-LIBRARY-TABLE. 

05  PLT-ENTRY  OCCURS  9  TIMES. 

10  PLT-PROJECT  PIC  X(12). 

10  PLT-LIBRARY  PIC  X(7). 

c.  Branching  and  Error  Conditions 

The  branching  and  error  conditions  which  apply  to 
HIPO  diagram  1.1. 3. 2  are  given  in  the  following  table: 
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Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

Note 

1 

2 

ERR 

Perform  Process  #8 

19 

ERR 

Perform  Process  #8 

32 

ERR 

Perform  Process  #8 

2 

6 

ADV 

Bypass  Process  #3 

4 

26 

ERR 

Perform  Process  #8 

1 

5 

6 

ADV 

Perform  Process  #8 

6 

81 

ERR 

Perform  Process  #8 

7 

16 

ADV 

Normal  Exit 

8 

7 

ERR 

Error  Exit 

Note : 

(1)  When  an  OBJECT  unit  Is  not  found,  the  error  condition 
is  reset  to  zero  and  processing  continues  normally 
since  an  OBJECT  stub  unit  will  be  provided  in  "pre- 
process  link"  operations. 
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2 . 2 . 1 . 1 . 3 . 2 . 1  PPLK  -  Pre-process  Link 

PPLK  processes  LINK  units  attempting  to  locate  the 
OBJECT  elements  listed  on  INCLUDE  cards.  If  no  object  module 
exists  PPLK  spawns  a  compile  to  create  a  relocatable  element 
for  the  stub. 


a.  Program  Operations 


HIPO  diagrams  1.1. 3. 2. 2  and  1.1. 3. 2. 2.1  show  the 
operation  of  the  PPLK  module.  PPLK  is  called  by  either  LKPG 
or  EXPG  with  the  LINK  unit  initialized  for  reading.  PPLK 
reads  the  LINK  unit  and  locates  OBJECT  units.  If  an  OBJECT 
unit  cannot  be  located,  a  stub  is  generated  by  modifying  a 
stored  source  stub  and  compiling  the  stub  before  the  Collector 
is  Invoked.  Only  the  INCLUDE  cards  are  modified  (to  IN  cards) 
by  PPLK.  All  other  Collector  control  cards  are  written  to  the 
HAP  FILE  unchanged. 


b. 


c . 


Data  File  and  Table 
No  special  files  or 
Branching  and  Error 


Descriptions 

tables  are  required. 

Conditions 


The  branching  and  error  conditions  that  apply  to 
HIPO  diagram  1.1. 3. 2.1  are  as  follows: 


Function  Condition  Message 
Reference _ Code _ Category 


5 

84 

ERR 

6 

84 

ERR 

85 

ERR 

7 

6 

ADV 

8 

83 

ERR 

9 

132 

ERR 

12 

84 

ERR 

85 

ERR 

Program 

_ Action _ No  te 

Conclude  procedure 
Conclude  procedure 
Conclude  procedure 
Terminate  program 
Terminate  program 
Go  to  ENDDO 
Terminate  program 
Terminate  program 


I 
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2. 2. 1.1. 3. 3  EXPG  -  Execute  a  Program 

A  user  program  la  retrieved  from  either  a  load  module 
In  the  LOAD  aectlon  or  a  aeries  of  one  or  more  object 
modules  selected  by  collector  control  cards  In  the  LINK 
section.  The  user's  job  control  cards  for  execution  of 
his  program  are  stored  In  a  unit  In  the  JOB  aectlon.  Special 
PSL  flags  are  placed  In  these  cards  to  direct  the  system  to 
Insert  additional  file  reference  Information  Into  the  spawned 
job  control  cards. 

a.  Program  Operations 

HIPO  diagram  1.1. 3. 3  depicts  the  top  unit  of  code  for 
the  EXPG  module.  The  procedure  for  validating  Keywords  and  key¬ 
word  values  culminates  in  the  building  of  a  Project  Library 
Table  listing  all  the  user-designated  libraries  to  be  searched. 

A  search  is  first  made  for  the  LOAD  or  LINK  section  unit 
designated  by  the  user,  followed  (when  successful)  by  a  search 
for  the  JOB  section  unit  containing  the  user's  job  control  cards 
according  to  the  procedure  shown  in  HIPO  diagram  1.1. 3. 3.1.  If 
the  user's  program  is  contained  in  a  LOAD  section  unit,  it  is 
already  in  a  loadable  format,  otherwise  the  object  module(s) 
specified  will  be  directed  to  the  collector  by  control  cards 
spawned  by  PPLK.  This  p;  icedure  is  essentially  the  same  as 
that  used  by  the  LKPG  module  described  in  paragraph  2. 2. 1.1. 3. 2. 
The  job  control  cards  (designated  by  the  user)  to  execute  the 
user  program  are  then  written  to  the  Spawned  Job  file  so  as  to 
contain  the  additional  file  references,  as  shown  In  HIPO 
d lagram  1 . 1 . 3 . 3 . 2 . 


b.  Data  File  and  Table  Descriptions 

1.  PROJECT  LIBRARY  TABLE 

This  table  is  generated  from  project  and  library 
keyword  inputs.  Up  to  nine  project  library  combinations  may 
be  specified.  The  following  table  format  applies: 

e  01  PROJECT-LIBRARY-TABLE. 

05  PLT-ENTRY  OCCURS  9  TIMES. 

10  PLT-PRO J ECT  PIC  X(12). 

10  PLT-LIBRARY  PIC  X(7). 
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Branching  and  Error  CondlClona 


c . 


The  following  branching  and  error  conditions  apply 
to  HIPO  diagram  1.1. 3. 3. 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

Note 

1 

2 

ERR 

Perform 

Process 

#10 

7 

ERR 

Perform 

Process 

#10 

32 

ERR 

Perform 

Process 

#10 

2 

26 

ERR 

Perform 

Process 

#10 

1 

4 

26 

ERR 

Perform 

Process 

#10 

9 

16 

ADV 

Normal  Exit 

10 

7 

ERR 

Error  Exit 

Notes ; 

(1)  If  OBJECT  section  unit  cannot  be  found,  error  message 
is  output  but  condition  coda  is  reset  to  zero  allow' 
lng  processing  to  continue  normally  since  an  object 
STUB  unit  will  be  supplied  via  the  PPLK  module 
operation  (refer  to  paragraph  2. 2. 1.1. 3. 2. 1) . 
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2. 2. 1.1. 3. 4  PCML  -  Precompile  Module 

The  ueer-deaignated  unit  Is  located  In  the  SOURCE  aectlon 
and  the  indicated  precompilation  procedure  is  located  in  the 
PSL  System  project  library  JOB  section.  PSL  file  reference 
information  is  inserted  into  the  job  control  cards  found  in 
the  located  job  unit  before  writing  them  out  to  Spawn-Job 
file  from  which  the  precompilation  activity  is  spawned. 

a.  Program  Operations 

EXPO  diagram  1.1. 3. 4  depicts  PCML  program  operations. 
If  the  user-designated  "top"  (i.e.,  MAIM,  CALLED  or  INDEPENDENT) 
unit  is  found,  the  applicable  precompilation  procedure  is 
determined  from  the  source  unit  language  or  from  the  special 
precompilation  procedure  name  provided  in  the  PROCEDURE  keyword 
input.  The  precompilation  procedure  is  then  retrieved  and  the 
job  control  cards  are  processed  to  modify  and  Insert  the 
additionally  required  PSL  file  references  before  writing  them 
to  the  Spawn  Job  File.  Processing  of  the  job  control  cards  is 
completed  when  the  flagword  "COMPILE"  is  detected  in  a  job 
control  card  or  the  last  job  control  card  is  processed. 

b.  Data  File  and  Table  Description 

No  special  files  or  tables  are  utilized. 

c.  Branching  and  Error  Conditions 

The  following  branching  and  error  conditions  apply 
to  HIPO  diagram  1.1. 3. 4: 

Function  Condition  Message  Program 

Reference  Code _ Category _ Action _ Note 


1 

2 

ERR 

Skip 

to 

error 

exit 

1 

19 

ERR 

Skip 

to 

error 

exit 

1 

32 

ERR 

Skip 

to 

error 

exit 

4 

92 

ERR 

Skip 

to 

error 

exit 

5 

26 

ERR 

Skip 

to 

error 

exit 

9 

81 

ERR 

Skip 

to 

error 

exit 

10 

7 

ERR 

Error 

Exit 

10 


10 


ADV 


Normal  Exit 


2. 2. 1.1. 4  Management  Data 

Management  data  functions  are  performed  to  update  a 
management  plan  (MDPLAN) ,  update  a  management  data  format 
(MDFORMAT) ,  update  manual  Input  data  (MDUPDATE) ,  establish 
exception  checking  (MDXCHECK.)  ,  Initiate  management  data 
collection  (MDCOLLECT) ,  and  print  management  reports 
(MDPRINT) .  The  program  modules  whose  operations  are 
especially  Invoked  by  these  functions  are  described  below. 


2. 2. 1.1. 4.1  FMMD  -  Format  Management  Data 

The  FMMD  module  controls  the  process  to  edit,  move  and 
update  format  Input/output  records  by  which  management  data 
format  units  are  established  and  maintained. 

a.  Program  Objectives 

H1P0  diagram  1.1. 4.1  depicts  the  program  operations 
of  the  FMMD  module.  In  step  1,  editing  the  keywords  indicate 
what  operation  is  to  be  performed  (MOVE,  ADD,  CHANGE,  DELETE). 
In  step  3,  the  management  section  index  is  searched  for  the 
format  unit  name.  If  the  name  is  not  present  and  the 
operation  is  "MOVE",  the  subroutine  FMMVE  is  called.  In 
step  4,  the  subroutine  FMEDE  is  called  to  read  and  edit  either 
new  data  or  updates  to  existing  data.  Consequently,  the 
subroutine  FMEDE  builds  the  TRANS-FILE,  which  is  used  by  the 
subroutine  FMUPE  to  update  the  format  units.  In  step  5,  the 
TRANS-FILE  is  sorted  on  ascending  values  of  the  DATA-RECORD-ID . 
In  step  7,  the  subroutine  FMUPE  will  write  a  new  unit  in  the 
Management  section.  The  new  unit  will  be  recorded  in  the 
Management  section  index  only  after  it  has  been  successfully 
stored . 


b.  Data  File  and  Table  Descriptions 
•  TRANS-FILE 

The  TRANS-FILE  is  used  to  store  new  and  update  format 
records  generated  by  the  editing  of  format  records.  The 
file  is  sorted  for  the  updating  process,  which  regards  the 
record-id  as  unique. 

e  SORT-FILE 

The  SORT-FILE  is  used  as  the  collation  file  for  the  1100 
series  Executive  Sort/Merge  Program.  The  TRANS-RECORD  is 
identical  to  the  SORT-RECORDS. 

01  FMMD-KEY  DATA 

The  data  group  FMMD-KEY  DATA  stores  values  for  the 
**  MDFORMAT  function  card  and  from  the  accounting  information 
of  an  existing  format  unit.  The  values  are  used  to  indicate 
specific  processing  and  to  restrict  access. 

05  FMMD-KEY  PIC  X(12). 

-  unit  key  assigned  when  unit  was  added. 
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05  FMMD-MOD  PIC  X(3). 

-  modification  number  specified  by  user  and  checked 
against  accounting  information. 

05  FMMD-OPCODE  PIC  X(6). 

-  update  operation  to  be  performed 
(ADD,  CHANGE,  MOVE,  DELETE). 

05  FMMD-LEVEL. 

-  level  name  either  given  by  user  or  obtained  from 
accounting  record  . 

10  FMMD-LEV-NBR  PIC  9(1). 

-  corresponds  to  occurrence  in  FMMD-MDCR-UNIT- 
NAME  data  group. 

10  FMMD— LEV -NAME  PIC  9(6). 

-  values  are  "SYSTEM,  UNIT,  MODULE,  SUBSYS,  JOB". 

05  FMMD-CYCLE  PIC  9(2). 

-  value  from  accounting  Information  calculated  when 
archiving . 

05  FMMD-OLDPRO J  PIC  X(12). 

-  project  of  sending  format  unit  in  MOVE  operation. 

05  FMMD-OLDLIB  PIC  X(7). 

-  library  of  sending  format  unit  in  MOVE  operation. 

05  FMMD-ARCHIVE  PIC  X(l). 

-  Indicate  collection  (MDC0LLECT)  processing  will 
archive  data. 

05  SEQ-CTR  PIC  S9(9)  COMP. 

-  number  of  edited  format  records  to  be  sorted. 
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Branching  and  Error  Conditions 


Func  t ion 
Reference 


Condition 

Code 

2,19,32 


Message 

Category 


See  Branching  and  Error 
module  FMMVE  1.1. 4. 1.2. 

See  Branching  and  Error 
module  FMEDE  1.1. 4. 1.1. 


See  Branching  and  Error 
module  FMUPE  1.1. 4. 1.3. 


24,29 


Program 

_ Action _ 

Subsequent  processing 
bypassed 

File  1 8  not  assigned 
Subsequent  processing 
bypassed 

Subsequent  processing 
bypassed 

If  operation  is  ADD  or 
MOVE,  subsequent 
processing  bypassed 

Conditions  for 


Conditions  for 


Subsequent  processing 
bypassed 

Conditions  for 


Processing  continues 

Processing  continues 

Index  entry  is  not 
updated.  Processing 
continues 

Unit  not  printed 
Processing  continues 

Unit  not  DELETED 
Processing  continues 

File  is  not  released. 
Error  return  from  DAFL 
may  have  unpredictable 
result . 


Note 
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NOTES  : 

(1)  Unable  to  assign  a  file.  See  description  of  ASFL 
for  detailed  list  of  causes  for  this  condition. 

(2)  Unable  to  terminate  write  for  unit.  See  description 
of  WRUN  for  detailed  list  of  causes  for  this 
condit ion . 

(3)  Unable  to  write  accounting  information  for  unit. 

See  description  of  WRAC  for  detailed  list  of 
causes  for  this  condition. 

(4)  Error  while  printing  unit.  See  description  of  PRUN 
for  detailed  list  of  causes  for  this  condition. 
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2. 2  . 1.1. 4  . 1.1  FMED 


Edit  Format  Records 


The  FMED  module  edits  user-input  format  records  prerequisite 
to  updating  the  designated  format  unit. 

a.  Program  Operations 

EIPO  diagram  1.1. 4. 1.1  depicts  the  program  operations 
of  the  FMED  module.  In  step  2,  the  user  data  immediately  follows 
the  **  MDFORMAT  card  of  the  “ADD"  operation  or  the  appropriate 
subfunction  cards  when  the  operation  is  "CHANGE".  In  step  3, 
the  user  data  which  is  stored  in  TEMP-DATA-FILE  is  edited  field 
by  field.  If  an  error  is  detected  in  any  field,  a  flag  is  set  in 
the  data  group  "TRANSACTION-ERROR-FLAGS".  In  step  4,  edited 
fields  of  the  TEMP-DATA-FILE  record  is  moved  to  the  corresponding 
fields  of  the  TRANS-DATA  record. 

b.  Data  File  and  Table  Descriptions 
01  SECONDARY-CP-CODE-ED IT-TABLE. 

The  SECONDARY-OP-CODE-EDIT-TABLE  Is  used  to  evaluate  the 
SECONDARY-OP-CODE  of  the  TEMP-DATA-FILE  record.  The  table 
associates  the  SECONDARY -OP-CODE  with  the  appropriate  level(s) 
which  may  be  referenced  or  processed. 


05 

FILLER 

PIC 

X  (6) 

VALUE 

"  11110". 

05 

FILLER 

PIC 

X(6) 

VALUE 

"*11110". 

05 

FILLER 

PIC 

X  (6) 

VALUE 

"sioooo". 

05 

FILLER 

PIC 

X  (6  ) 

VALUE 

"M11000". 

05 

FILLER 

PIC 

X  (6  ) 

VALUE 

"J11000". 

05 

FILLER 

PIC 

X  (6 ) 

VALUE 

"A00101". 

05 

FILLER 

PIC 

X  (6  ) 

VALUE 

"$11110". 

01  FILLER  REDEFINES  SECONDARY -OP-CODE-EDIT-TABLE . 

05  SEC-OP-CODE-ENTRIES  OCCURS  7  TIMES 

INDEXED  BY  SOC-INDEX. 

10  SEC-OP-CODE  PIC  X(l). 

OCCURS  5  TIMES 
INDEXED  BY  LV-INDEX. 

15  LEVEL-PERMISSIONS  PIC  X(l). 

38  SEC-OP-CODE-VALID  VALUE  1. 

01  TEMP-DATA-FILE. 

The  TEMP-DATA-FILE  record  Is  the  format  of  the  user  input 
to  the  **  MDFORMAT  function.  Each  field  is  edited  and/or 
validated  before  being  moved  to  the  corresponding  field  in  the 
TRANS-DATA  record. 


05  PRIMARY-OP-CODE 


PIC  X(l) . 


-  indicates  the  operation  to  be  performed  on  input 
( I— INSERT ,  R-REPLACE,  D-DELETE) . 

05  PRIM-ITEM-NBR  PIC  X(3) . 

-  item  number  indicating  a  management  data  collection 
item. 

05  SECONDARY-OP-CODE  PIC  X(l) . 

-  Indicates  a  reference  to  another  management  data 
collection  item. 

05  SECOND ARY -ITEM-NBR  PIC  X(3). 

-  item  number  referenced  by  PRIM-ITEM-NBR  or 
Indicator  for  repeated  items. 

05  SPECIAL-OP-ID. 

-  Indicates  data  value  edit  specification  or  collection 
function  processing  (TTL-T0TAL ,  MAX -MAXIMUM,  AVG- 
AVERAGE,  CYC-CYCLE). 

10  EDIT-CODE  PIC  X(l) . 

-  indicates  edit  for  data  value  (N-NUMBER, 
A-ALPRABETIC ,  ^-ALPHANUMERIC ) . 

10  EDIT-OPERAND  PIC  X(2). 

-  indicates  length  of  data  value. 

05  PRIM-ITEM-NAME  PIC  X(12). 

-  corresponds  to  PRIM-ITEM-NBR. 


05 

FILLER 

PIC 

X(l)  . 

05 

PRIM-ITEM-LABEL 

PIC 

X 

/-s 

oo 

-  stores  text  used  as  output 

desci 

r ipt ive 

05 

FILLER 

PIC 

X(8)  . 
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01  TRANSACTION-ERROR-FLAGS 


The  TRANSACTION-ERROR-FLAGS  data  group  stores  flags  which 
Indicate  whether  or  not  specific  fields  In  the  TEMP— DATA-FILE 
record  were  edited  successfully. 

05  POC-FLAG  PIC  X(l) . 

-  Indicate  result  of  edit  on  the  PRIMARY-OP-CODE. 

05  PIN-FLAG  PIC  X(l) . 

-  Indicate  result  of  edit  on  the  PRIM-ITEM-NBR . 

05  FILLER  PIC  X(2) . 

05  SOC-FLAG  PIC  X(l) . 

-  Indicate  result  of  edit  and  table  search  on  the 
SECONDARY- ITEM-NBR . 

05  FILLER  PIC  X(2)  . 

05  SOP-FLAG  PIC  X(l) . 

-  Indicate  result  of  edit  on  SPECIAL-OP-ID. 

05  EDO-FLAG  PIC  X(l). 

-  indicate  result  of  edits  on  related  fields  EDIT-CODE 
and  EDIT-OPERAND. 


05  FILLER  PIC  X(l)  . 

NOTE:  See  module  FMMDE  for  description  of  input/output  arguments, 

c.  Branching  and  Error  Conditions 


Func  t ion 
Reference 


Condition 

Code 


Message 

Category 


Program 
Ac  t ion 


Note 


2  14  INF  End  of  user  data 

Processing  returns 
control  to  calling 
routine . 


3 


190 


ERR 


Source  c  ta  rejected 
Processing  continues 


v 


* 


2. 2. 1.1. 4. 1.2  FMMV  -  Move  Format  Records 

The  FMMV  module  moves  format  unit  records  from  one 
designated  project  library  to  another. 

a.  Program  Operations 

HIPO  diagram  1.1. 4. 1.2  depicts  the  program  operations 
of  the  FMMV  module.  In  step  1,  the  specified  Management 
section  file  Is  assigned.  In  step  2,  If  the  sending  unit  is 
not  located,  the  move  processing  will  terminate.  In  step  9, 
the  sending  Management  section  file  Is  released. 


e 


b.  Data  File  and 
TRANS-FILE  see 


Table  Descriptions 

description  of  file  In  module  FMMD . 


•  RECEIVING-OPTIONS. 


-  section  options  of 
see  description  of 


receiving  management  section. 
"SECTION-OPTIONS"  In  Section  2. 


•  FMMD -KE YD AT A 

-  see  description  of  module  FMMD  for  description  of  item. 


•  NEW-STRING 


PIC  X(80) . 


-  stores  the  catalog  file  string  for  the  receiving  format 
unit. 

•  NBR-LINES  PIC  S9(9)  COMP.  > 

I 

-  stores  the  number  of  lines  written  to  the  new  format  ! 

unit.  S 

-  used  to  update  accounting  Information  of  receiving  unit. 


c.  Branching  and  Error  Conditions 


Func  t Ion 
Reference 

Condition 

Code 

Message 

CateKory 

Program 

Action 

Note  2 

1 

6 

PSL 

Subsequent 

bypassed 

processing  1 

2 

31 

PSL 

Subsequent 

bypassed 

processing 

26 

ERR 

Subsequent 

bypassed 

processing 
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c.  Branching  and  Error  Conditions  (continued) 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Ac  t ion 

No  ti 

3,5.7 

47,48,49 

PSL 

Processing  continues 

2 

4N 

ON 

ao 

43,44,45 

PSL 

Unit  may  be  truncated 
Processing  continues 

3 

9 

37 

PSL 

File  is  not  released. 

Error  return  from  DAFL 
have  unpredictable 
result. 


NOTES : 

(1)  Unable  to  assign  file.  See  description  of  ASFL  for 
detailed  list  of  causes  for  this  condition. 

(2)  Unable  to  perform  read  processing.  See  description 
of  RDUN  for  detailed  list  of  causes  for  these 
conditions . 

Unable  to  perform  write  processing, 
of  WRUN  for  detailed  list  of  causes 
conditions . 


(3) 


See  description 
for  these 


2 . 2 . 1 . 1 . A . 1 . 3  FMUP  -  Update  Format  Records 

The  FMUP  module  updates  a  designated  format  unit  with 
edited  Input  format  record  transactions. 

a.  Program  Operations 

HIPO  diagrams  1.1. A. 1.3  and  1.1. A. 1.3.1  depict  the 
program  operations  of  the  FMUP  module.  In  step  3,  each 
record  of  the  TRANS-FILE  is  written  to  the  space  assigned 
for  the  new  format  unit  being  added.  In  step  A.  a  check  is 
made  of  the  UNIT-KEY  value  and  the  MODIFICATION  number  before 
update  begins.  In  step  7,  the  HIPO  diagram  1.1. A. 1.3.1 
details  the  processing  of  updating  an  existing  format  unit. 

The  updating  process  is  mainly  dependent  on  two  factors: 

(1)  the  correlation  between  the  PRIMARY-ITEM-NBR  of  the 
existing  unit  and  the  TRANS-ITEM-NBR  of  the  TRANS-FILE,  and 

(2)  the  value  of  TRANS-OP-CODE  of  the  TRANS-FILE. 

b.  Data  File  and  Table  Description 

•  FMS- CATALOG- STRING 

-  see  Section  3  for  description  of  "FMS— CATALOG -FILE - 
STRING" . 

•  FMMD- INDEX- ENTRY 

-  see  data  description  of  module  FMMD. 

•  OLD-BLOCK-NBR  PIC  S9(9)  COMP. 

-  block  number  assigned  to  existing  format  unit  used  in 
initializing  the  format  unit  to  be  read. 

•  ACCOUNTING-INFORMATION 

-  the  accounting  information  of  the  existing  format  will 
be  modified  to  reflex  updating  of  the  unit. 

-  see  Section  3  for  description  of  "ACCOUNTING-INFORMATION". 

•  NBR-HNES  PIC  S9  (9)  COMP. 

-  number  of  lines  written  to  new/updated  unit. 


2-132 
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c.  Branching  and  Error  Conditions 


Function 

Reference 

Condit ion 
Code 

Message 

Category 

Program 

Action 

Note 

3 

44 

PSL 

Subsequent 

processing 

1 

bypassed 

4 

47 

PSL 

Subsequent 

processing 

2 

bypassed 

6 

48 

PSL 

Subsequent 

processing 

2 

bypassed 

7 

44,48 

PSL 

Unit  is  truncated 

1,2 

Subsequent 

processing 

bypassed 

58,161 

ERR 

Record  not 

updated 

Processing 

continues 

NOTES  : 

(1)  Unable  to  perform  write  processing.  See  description 
of  WRUN  for  detailed  list  of  causes  for  these 
conditions . 

(2)  Unable  to  perform  read  processing.  See  description 
of  RDUN  for  detailed  list  of  causes  for  these 
conditions . 
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2. 2.1. 1.4. 2  UPMD  -  Update  Manual  Management  Data 


The  module  UPMD,  which  corresponds  to  the  **  MDUPDATE 
function,  originally  introduces  data  into  a  management  data 
unit,  modify  the  contents  of  a  management  data  unit,  or 
delete  a  management  data  unit.  The  module  UPMD  also 
corresponds  to  the  **  MDXCHECK  function  which  is  used  to 
add,  change  or  delete  exception  checking  specifications 
within  an  existing  management  input  unit.  Modification 
details  are  provided  by  the  operation-code  and  the  Subfunction 
cards  (DELETE,  MODIFY,  and  INSERT)  which  follow  either  the 
MDUPDATE  or  MDXCHECK  card.  New  management  data  follows 
either  the  MDUPDATE  card  for  the  ADD  operation  or  the  INSERT 
and  MODIFY  Subfunction  cards  for  the  CHANGE  operation. 

New  and  revised  exception  checking  specifications  follow 
the  INSERT  and  MODIFY  Subfunction  cards,  respectively. 
Identification  of  either  exception  checking  specification  or 
management  data  items  to  be  deleted  follow  the  DELETE 
Subfunction  card.  The  module  UPMD  calls  two  subroutines, 
the  module  UPMF  and  the  module  UPMR,  that  are  responsible 
for  the  detailed  MDUPDATE /MDXCHECK  processing.  The  module 
UPMF  validates  and  edits  all  Subfunction  cards,  verifies 
appropriate  formats  units,  builds  formatted  input  records 
and  stores  them  on  a  temporary  file.  The  temporary  file 
is  sorted,  then,  used  by  the  module  UPMR  to  add,  update,  or 
delete,  either  management  input  data  or  exception  checking 
data. 

a.  Program  Operations 

HIPO  diagram  1.1. 4. 2  describes  the  operation 
performed.  In  step  1,  the  subroutine  UPMF  1.1. 4. 2.1  is 
called  to  generate  the  UPMD-FILE  file.  The  module  UPMF  also 
verified  management  data  format  units  and  items  contained 
therein  with  input  data  being  edited.  The  module  UPMF 
returned  Important  function  values  necessary  for  further 
processing.  In  step  3,  the  subroutine  module  UPMR  is 
called  to  update  the  management  data  input  unit.  The 
sorted  temporary  file  UPMD-FILE  is  used  as  input  to  the  module 
UPMR. 

b.  Data  File  and  Table  Description 
1.  INPUT  ARGUMENTS 

Parameter-Table  see  Section  3  for  description 
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OUTPUT  ARGUMENTS 


2  . 

Pr ocess ing- S t a t us  PIC  S9(9)  COMP. 

Return-code  -  zero  for  normal  status. 

-  error  code  indicating  cause 

of  failure  of  file  assignment. 
See  section  2 . 2 . 1 . 1 . 4 . 2  .  c 
for  complete  list  of  codes. 

Parameter-Table  see  Section  3  for  description 

3.  SORT-FILE 

This  file  is  used  as  the  collation  file  for  the  1100 
Series  Executive  Sort/Merge  Program.  The  CLIB— MDCR-DATA— RECORD- 
FORMAT  is  identical  to  the  sort  record  and  the  UPMD-RECORD. 

The  sort  key  is  comprised  of  the  DATA-TYPE-CODE ,  DATA-RECORD- ID , 
DATA-INPUT-SEC  and  the  EDIT-CHECK-TYPE. 

01  SORT-RECORD. 

05  FILLER  PIC  X(5) . 

corresponds  to  the  first  five 
characters  of  the  UPMD-RECORD. 

05  SORT-FLD 5  PIC  X(12)  . 

-  represents  the  sort  key  described 
above . 

05  FILLER  PIC  X (63)  . 

-  remainder  of  the  UPMD-RECORD. 

4.  UPMD-FILE 

This  file  is  used  to  store  the  modification  detail 
along  with  the  line  date  specified  for  processing  by  the  user. 

01  UPMD-RECORD  PIC  X(80). 

01  CL  I B-MDCR-D AT A -RECORD-FORM AT  see  Section  3  for  description 

-  data  grouping  of  UPMD-RECORD. 
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c.  Branching  and  Error  Conditions 


Func  tion 
Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

No  te 

1 

19,32,3,100, 

3,161,4,192, 

194,185,196,9 

ERR 

Subsequent 
processing 
con  t inue  s 

1 

1 

47,49,6 

PSL 

Subsequent 

processing 

continues 

1 

3 

47,49,43,44, 

41,48 

PSL 

Subsequent 

processing 

continues 

2 

4 

42 

PSL 

Used  blocks  not 
released 

6 

66 

ERR 

Management  unit 
not  listed 

7 

37 

PSL 

section  file  is 
not  released 

Notes : 

(1)  See  description  of  module  UPMF  for  specific  conditions 
which  cause  error  conditions. 

(2)  See  description  of  module  UPMR  for  specific  conditions 
which  cause  error  conditions. 
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2 . 2  .  1 . 1 . 4 . 2 . 1  UPMF  -  Edit  Data  Format 

The  UPMF  module  edits  the  user  input  transactions  for 
compliance  with  format  requirements. 

a.  Program  Operations 

HIPO  diagrams  1.1. 4. 2.1  and  1.1. 4. 2. 1.1  depicts  the 
program  operations  of  the  UPMF  module.  In  step  3,  the  index 
block  of  the  management  section  is  searched  for  the  management 
unit.  If  the  unit  is  not  in  the  management  index  and  the 
operation  specified  for  the  update  is  "ADD",  later  processing 
will  attempt  to  add  the  entry  to  management  index.  In  step  4, 
the  unit  level  name  is  obtained  from  the  accounting  information 
of  the  stored  management  unit.  In  step  5,  either  the  level 
value  specified  on  the  add  operation  or  the  unit  level  name 
obtained  from  step  4  is  used  to  determine  the  appropriate 
format.  If  the  appropriate  format  is  not  located,  processing 
is  terminated.  In  step  8,  the  input  records  are  edited  and 
reformatted  according  to  the  PSL  function  being  processed 
(MDUPDATE/MDXCHECK.) . 

b.  Data  File  and  Table  Descriptions 

•  UPMD-FILE 

The  UPMD-FILE  Is  used  to  store  the  formatted  update  records 
to  be  read  and  processed  by  the  UPMRE  module. 

01  DATA-RECORD 

The  DATA-RECORD  group  defines  the  format  of  updating 
records.  See  Section  3,  DATA  group  "CLIB-MDCR— DATA-RECORD- 
FORMAT"  definition. 

1.  INPUT  ARGUMENTS 

•  PARAMETER-TABLE 

See  Section  3  for  description  of  the  data  items  of  the 
Parameter  Table. 

2 .  OUTPUT  ARGUMENTS 

•  ASSIGN-FILE-SW  PIC  S9(9)  COMP. 

-  switch  to  indicate  whether  section  file  was  assigned. 
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•  FILE-NBR 


PIC  S9  (9)  COMP. 


-  number  of  file  code,  with  the  allocation  table  to  which 
file  has  been  assigned. 

•  FMS-STRING 

-  see  Section  3,  DATA  group  "FMS- CATALOG -FILE- STRING" 
de  f init ion . 

•  UPMD- INDEX- ENTRY 

-  see  Section  3,  DATA  group  "REQUE STED- INDEX-ENTRY" 
def inition . 

•  SECTION-OPTIONS 

-  see  Section  3  for  description  of  data  items. 

•  01  MDUPD ATE -PARAMETERS 

The  MDUPDATE-PARAMETER  data  group  stores  data  values 
used  in  determining  processing  by  the  module  UPMRE . 

05  MD-LEVEL  PIC  X(6) . 

-  level  of  management  unit  (SYSTEM,  SUBSYSTEM, 
MODULE,  ETC.) 

05  MD-UNIT-KEY  PIC  X(12). 

-  key  assigned  when  unit  was  added  to  PSL  storage. 

05  OPERATION-NAME  PIC  X(6). 

-  operation  to  be  performed  by  functions  (ADD, 
CHANGE,  DELETE) 

•  77  SORT-REQUIRED-SW  PIC  S9(9)  COMP. 

-  switch  to  indicate  whether  1100  Series  Exec¬ 
utive  Sort/Merge  Program  will  be  invoked. 

•  01  PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  Code  -  zero  for  normal  status 

-  error  code  indicating  cause  of  failure 
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Branching  and  Error  Conditions 


c . 


Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ Note 


1 

2,19,32 

ERR 

2 

41 

PSL 

6 

ADV 

3 

3,9,26,100 

ERR 

31,43,47 

PSL 

A, 5 

23,26 

ERR 

31,41,47 

PSL 

6 

11 

ERR 

48 

PSL 

8,10 

1 

ERR 

9.11 

NOTES  : 

19,64,65 

193,195,196 

ERR 

Subsequent  processing 
bypassed 

Mgmt  section  file  1 

not  assigned 
Subsequent  processing 
bypassed 

1 

Subsequent  processing 
bypassed 

Subsequent  processing 
bypassed 

Subsequent  processing 
bypassed 

Subsequent  processing  1 
bypassed 

Processing  continues 

2 

Skip  to  next  function 
Processing  continues 

Processing  continues 


(1)  Unable  to  assign  required  library-section  file.  See 
description  of  ASFL  for  conditions  which  cause  file 
assignment  to  fall. 

(2)  Unable  to  initialize  to  read  line  or  to  read  line. 
See  description  of  RDUN  for  conditions  which  cause 
read  or  read  initialization  to  fail. 
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2 . 2 . 1 . 1 . 4 . 2 . 2  UPMR  -  Update  Management  Data  File  Records 

The  UPMR  module  updates  a  management  input  unit  with 
edited  user  input  transactions. 

a.  Program  Operations 

H1P0  diagram  1.1. 4. 2. 2  depicts  the  program  operations 
of  the  UPMR  module.  In  step  3,  each  new  UPMD-RECORD  is  read 
from  the  UPMD-FILE  and  edited  for  repeated  items  or  XCHECK 
data.  In  step  6,  record-ids  of  the  UPMD-RECORD  and  existing 
management  record  (DATA-RECORD )  are  compared.  If  the  record-id 
of  the  DATA-RECORD  is  lower  than  that  of  the  UPMD-RECORD,  the 
DATA-RECORD  is  written  to  the  new  unit.  If  the  record-id  of 
the  DATA-RECORD  is  equal  to  that  of  the  UPMD-RECORD,  the  DATA- 
RECORD  is  either  deleted  or  updated  and  written  to  the  new  unit. 
If  the  record-id  of  the  DATA-RECORD  is  greater  than  that  of  the 
UPMD-RECORD,  then  the  UPMD-RECORD  is  inserted  and  written  to 
the  new  unit . 

b.  Data  File  and  Table  Descriptions^ 

•  UPMD-FILE 

The  UPMD  file  is  used  to  store  the  formatted  update  records 
needed  for  updating  a  manual  input  unit.  See  Section  3  DATA 
group  "CLIB-MDCR-DATA -RECORD -FORMAT"  definition. 

•  NEW-DATA-BLOCK  PIC  S9(9)  COMP. 

The  NEW-DATA-BLOCK  Is  the  address  of  the  first  block  for 
the  new  or  updated  unit. 


c.  Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

No  te 

1 

43 

PSL 

Subsequent  processing 
bypassed 

1 

3 

44 

PSL 

Unable  to  write 
management  records 

1 

4 

24 

PSL 

Unit  not  added  to 
index 

2 

XSee  Data  File  and  Table  Description  for  module  UPMDE  1.1. 4. 2 
and  UPMFE  1.1. 4. 2.1. 
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Branching  and  Error  Conditions  (continued) 


c  . 

Function  Condition 
Reference _ Code 


5  47,48 

44,49,45 

29 

161 


Message  Program 

Category _ Ac  t  ion _ Note 

PSL  Processing  terminates  1,3,4 

passing  control  to 
UPMD  module 

ERR  Specific  data  rejected 

Processing  continues 


NOTES  : 

(1)  Unable  to  initialize  write  or  write  line.  See 
description  of  WRUN  for  conditions  which  cause 
failure . 

(2)  Unable  to  add  an  entry  to  the  PSL  index  block. 
See  description  of  ADXE  for  conditions  which 
cause  failure. 

(3)  Unable  to  initialize  read  or  read  line.  See 
description  of  RDUN  for  conditions  which  cause 
failure . 

(4)  Unable  to  change  index  entry  in  the  PSL  index 
block.  See  description  of  CHXE  for  conditions 
which  cause  failure. 
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2. 2. 1.1. 4. 3  ITCL  -  Initiate  Collection 

This  program  module  initiates  the  collection  and  storage 
of  management  data  in  the  management  section  of  a  specified 
PS L  project  and  library  in  response  to  the  use  of  the 
MDCOLLECT  Function. 

a.  Program  Operations 

HIPO  diagram  1.1. 4. 3  describes  the  operations  re¬ 
quired  to  initiate  management  data  collection.  Existence 
of  the  specified  management  section  is  verified  and  the 
collection  unit  key  is  checked  when  a  collection  unit  exists 
and  a  key  has  been  previously  assigned.  The  spawned  job 
procedure  (e.g.,  default  PROC~CLMD)  is  obtained  from  the  job 
section  of  the  system  library  and  the  spawned  job  file  is 
written  as  Indicated. 

b.  Data  File  and  Table  Descriptions 

No  special  files  or  tables  are  utilized. 

c.  Branching  and  Error  Conditions 

The  following  table  describes  the  branching  and 


error  conditions  relative 

to  HIPO 

diagram  1.1. 4. 3. 

Func  t ion 

Condition 

Message 

Program 

Reference 

Code 

Category 

Ac  t ion 

1 

2,19,32 

ERR 

Perform  Process 

#8 

2 

6 

ERR 

Perform  Process 

#  8 

3 

9 

ERR 

Perform  Process 

#8 

5 

81,47 

ERR 

Perform  Process 

#8 

6 

18 

Perform  Process 

#7 

7 

16 

Normal  exit 

8 

7 

Error  exit 
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2 . 2 . 1 . 1 . 4 . 3 . 1  CLMD  -  Collect  Management  Data 

Management  data  Is  collected  and  stored  under  the  control 
of  the  CLMD  module  which  is  executed  via  the  spawned  job 
procedure  initiated  by  the  ITCL  module  described  in  the  pre¬ 
ceding  paragraph. 

a.  Program  Operations 

HIPO  diagram  1.1. 4. 3.1  depicts  the  top-level 
operations  that  constitute  the  collection  activity.  Three 
subroutines  are  used  to  perform  the  detailed  operations  as 
indicated.  The  first  subroutine  (PPCL)  edits  keyword  inputs 
and  pre-processes  the  MDCR  Plan  unit  to  validate  its  syntax. 
The  next  subroutine  (PCCL)  performs  the  major  work  of  collect¬ 
ing  the  data  designated  by  the  management  plan  and  format 
units.  The  third  routine  (UPCL)  performs  any  required 
archiving  and  stores  the  newly  collected  data. 

b.  Data  File  and  Table  Descriptions 
1.  Link  Names  Table 


The  following  data  is  utilized  to  provide  the 


link  names 

of  the  three  subroutines 

called 

by  the 

CLMD 

module . 

•  01  LINK 

-NAMES-FOR-CLMD . 

05 

LINK-PPCL 

PIC 

X(6) 

VALUE 

"LKPPCL" . 

05 

LINK-PCCL 

PIC 

X(6) 

VALUE 

"LKPCCL". 

05 

LINK-UPCL 

PIC 

X  (  6  ) 

VALUE 

"lkupcl" . 

2.  Collection  Parameters 

The  following  parameters  are  used  to  communicate 
information  between  the  subroutines  called  by  the  main  CLMD 
module : 


01 

COLLECTION-CONTROL-TABLE . 

(to  be  described) 

77 

ARCHIVE-VALUE 

PIC 

X  (  3  )  . 

77 

RECYCLE-VALUE 

PIC 

X  (  3  )  . 

77 

PROCESSING-STATUS 

PIC 

S9  (9)  COMP. 
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The  initial  values  for  these  parameters  are  determined  by  the 
PPCL  subroutine.  The  ARCHIVE-VALUE  and  RECYCLE-VALUE  entries 
are  taken  from  the  corresponding  MDCOLLECT  Function  keyword 
input  values  (i.e.,  YES  or  NO).  The  PROCESSING-STATUS 
parameter  is  initially  set  to  zero;  it  may  subsequently  be 
set  to  non-zero  value  indicating  a  condition  for  which  CLMD 
processing  is  unable  to  be  completed. 

The  Collection  Control  Table  parameter  is  initially  used 
to  the  following  extent: 


•  01  COLLECTION-CONTROL-TABLE. 

05  PROGRAMMER-NAME 
05  MGMT— FMS-CATALOG-ENTRIES  . 
10  MGMT-PRO JECT-NAME 
10  FILLER 

10  MGMT-LIB-SEC-NAME . 

15  MGMT -LIB -SEC -CODE 
15  MGMT -LIBRARY -NAME 
10  FILLER 


PIC  X  (  1 2 )' . 

PIC  X  ( 12  )  . 
PIC  X (12 )  . 

PIC  X(l)  . 
PIC  X  (7  )  . 
PIC  X (40)  . 


05  (remaining  entries  detailed  under  paragraph 
2. 2. 1.1. 4. 3. 1.2). 


The  PROGRAMMER-NAME  and  MGMT -FMS-CATALOG-ENTRIES  are  determined 
from  PROGRAMMER,  PROJECT  and  LIBRARY  keyword  input  values. 
Assignment  of  the  management  section  file  is  made  using  this 
data . 


c.  Branching  and  Error  Conditions 

Normal  Exit:  Processing  status  equals  zero  (0) . 
Error  Exit:  Processing  Status  equals  seven  (7). 
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2 . 2 . 1 . 1 . 4 . 3 .  1 . 1  PPCL  -  Pre-process  Collection 


The  PPCL  module  performs  operations  which  are  preparatory 
to  collecting  management  data. 

a.  Program  Operations 

HIPO  diagram  1.1. 4. 3. 1.1  depicts  the  processing 
performed  by  the  PPCL  subroutine.  The  keyword  values  originally 
verified  by  the  ITCL  module  and  output  on  the  spawn  job  file 
are  processed  and  stored  in  step  1.  After  assigning  the 
indicated  management  section  file,  the  MDCR  Plan  unit  is 
processed  to  verify  its  syntax  and  to  reformat  and  direct  the 
plan  keyword  value  input  data  to  a  temporary  sequential  file 
(i.e..  Plan  Keyword  File).  If  no  serious  error  is  detected  in 
the  plan  data,  the  MDCR  Collection  unit  is  read  (provided  that  it 
exists)  and  where  a  correspondence  is  found  between  a  collected 
element  (i.e.,  system,  subsystem,  module  or  job  name)  and  a  plan 
element  (a  list  of  which  elements  is  retained  in  a  management 
data  plan  table  generated  in  step  5) ,  the  numeric  data  items 
contained  within  that  collected  element  are  stored  on  a  random 
file  with  a  record  key  computed  from  the  table  entry  number  of 
the  plan  element  which  corresponds.  This  same  entry  number  will 
later  be  used  (in  PCCL  module  operations)  to  retrieve  data  from 
the  Random  Collect  File  in  computing  cyclic  data  statistics. 

If,  as  an  alternative  to  the  above,  the  MDCR  Plan  unit  contains 
improper  keyword  data  (i.e.,  contains  syntax  errors),  the  plan 
input  will  be  rejected  and  the  Verification  Status  indicator  in 
that  unit's  accounting  record  will  be  updated  to  indicate  that 
rejection  has  been  made.  Unless  the  MDCR  Plan  unit  is  subsequently 
updated  (using  the  MDPLAN  Function),  it  remains  in  "rejected" 
status  and  is  immediately  rejected  in  subsequent  collection 
operations  prior  to  performing  step  3. 

b.  Data  File  and  Table  Descriptions 
1.  Management  Data  Plan  Table 

This  table  is  utilized  as  described  above  and  has 
the  following  working  storage  definition: 

•  01  MD-PLAN-TABLE . 


05  PLAN 

-UNIT-ENTRY 

OCCURS  200  TIMES 

10 

PLAN-UNIT-NAME 

PIC  X (30) . 

10 

PLAN-UNIT-LEVEL 

PIC  9(1). 

2-152 


A  maximum  o f  200  unique  plan  unit  (element)  entries  are 
permitted.  E^ch  plan  element  entry  consists  of  the  element 
name  and  level  (i.e.,  system,  subsystem,  module  or  job)  number 
(correspondingly  being  1,  2,  3  or  4). 

2.  Plan  Keyword  File 

The  following  data  record  description  applies: 

•  01  PLAN-KEYWORD-RECORD. 


05 

PRIME-KEYWORD 

PIC 

X  (12  ) 

• 

05 

FILLER 

PIC 

X  ( 12  ) 

• 

05 

UN IT-LEVEL-NBR 

PIC 

39(9) 

COMP. 

05 

KEYWORD-VALUE 

PIC 

X  (48) 

• 

05 

UNIT-INPUT-NBR 

PIC 

S9(9) 

COMP. 

05 

FILLER 

PIC 

S9(9) 

COMP. 

05 

KEY WORD -CAS E-NBR 

PIC 

S9(9) 

COMP. 

The  PRIME-KEYWORD  and  KEYWORD-VALUE  fields  contain  corresponding 
data  as  obtained  from  the  MDCR  PLan  unit.  The  KEYWORD -CAS E-NBR 
is  determined  by  the  contents  of  PRIME-KEYWORD  and  is  later 
utilized  (in  PCCL  module  operations)  to  designate  the  applicable 
case  figure  code  to  be  performed.  The  UN IT— LEVEL— NBR  field 
contains  the  plan  element  level  number  as  determined  from  the 
prime  keyword  (e.g.,  if  prime  keyword  equals  "system",  the  unit 
level  number  is  set  to  1).  The  UNIT-INPUT-NBR  field  contains 
the  MD-PLAN-TABLE  entry  number  corresponding  to  the  plan  element 
name  contained  in  the  KEYWORD-VALUE  field. 

3.  Random  Collect  File 

The  following  data  record  description  applies: 

•  01  RANDOM-COLLECT-RECORD. 

05  LAST-BLOCK-INDICATOR  PIC  X(6). 

88  LAST-BLOCK  VALUE  HIGH-VALUE. 

05  STORED- I TEM-NBR  OCCURS  42  TIMES 

PIC  X  (3 )  . 
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88  LAST-ITEM 


VALUE  HIGH-VALUE. 


05  STORED -ITEM-VALUE  OCCURS  42  TIMES 

PIC  S9  (9)  COMP. 

The  above  record  description  constitutes  a  384  character  block 
in  random  file  storage.  The  record  key  is  computed  such  that 
up  to  three  record  block  (i.e,  126  items)  may  be  stored  in  the 
random  file  for  each  element  of  the  MDCR  Collection  unit  that 
corresponds  to  a  current  plan  element  input.  The  number  of 
record  blocks  may  be  increased  (when  required)  by  modifying  the 
following  data  description: 

77  BLOCK-RANGE  PIC  S9(9)  COMP  VALUE  3. 

The  last  block  used  for  any  given  element  is  indicated  by  the 
LA ST- BLOCK- IND ICATOR .  The  element  item  number  whose  value  is 
stored  in  STORED-ITEM-VALUE  is  given  in  STORED-ITEM-NBR .  If  all 
42  item  storage  spaces  are  not  used  in  the  last  block,  "high- 
values"  are  placed  in  the  entry  following  the  last-stored  item 
to  terminate  retrieval  operations. 

c.  Branching  and  Error  Conditions 

The  following  table  describes  the  branching  and  error 
conditions  relative  to  HIP0  diagram  1.1. 4. 3. 1.1. 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

3 

30 

ERR 

Perform  Process  #8 

4 

17 

ERR 

Bypass  Process  // 5 

5 

2,19 

ERR 

Exit  Process  #5 
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2 . 2 . 1 . 1 . 4 • 3 . 1 . 2  PCCL  -  Process  Collection 

Automatically  generated  source  code  statistics  and  manually 
input  management  data  is  collected  in  accordance  with  management 
plan  and  report  level  format  specifications. 

a.  Program  Operations 

MDCR  Format  units,  corresponding  to  report  levels 
(i.e.,  system,  subsystem,  etc.)  designated  in  the  management  plan, 
are  read  and  output  to  a  temporary  sequential  file  (i.e.,  the  MD 
Formats  File).  Working  storage  tables  are  also  generated  to 
contain  an  entry  for  each  statistical  (i.e,  numeric)  data  item 
referenced  in  the  format  specifications.  The  Plan  Keyword  File 
is  then  read  and  a  table  of  Source  Section  library  names  is 
maintained  based  on  "project"  and  "library"  keyword  inputs  from  that 
file.  The  occurrance  of  a  "module"  level  plan  element  causes  all 
designated  Source  section  libraries  to  be  assigned  and  a  search  to 
be  made  for  a  section  index  entry  corresponding  to  the  designated 
module  name.  After  the  "top  unit"  code  is  found,  it  is  scanned 
for  " inc luded— uni t "  references.  As  Included— unit  references  are 
found,  a  search  is  made  to  find  the  Included  unit  name  among  the 
Source  section  indexes.  The  search  continues  through  the 
included-unit  code  to  look  for  further  included-unit  references, 
and  so  on.  Required  statistical  data  is  extracted  from  the  unit 
accounting  record  of  each  such  unit  for  summarization  in  module 
level  format  table  storage.  A  procedure  is  next  performed  to 
collect  manual  data  statistics  (i.e.,  numeric  data  inputs)  that 
may  have  been  supplied  for  the  system,  subsystem,  module  or  job 
plan  element  being  processed.  At  this  point  all  numeric  data 
inputs  (both  automatic  and  manual)  have  been  collected.  If  there 
are  any  cyclic  data  references  present  in  the  report  level  being 
processed,  retrieval  is  made  against  the  Random  Collect  File  to 
obtain  data  previously  collected  relative  to  the  items  referenced 
by  the  yclic  data  format  specification.  This  retrieved  data  is 
processed  to  produce  the  required  cyclic  data  values  as  noted  in 
step  9  of  HIPO  diagram  1.1. A. 3. 1.2).  Step  10  positions  the  MD 
Formats  File  to  obtain  a  list  of  all  data  items  for  the  report 
level  being  processed  and  utilizes  that  input  to  "drive"  the 
collection  of  numeric  and  non-numeric  data  items.  The  output  of 
this  process  is  written  to  a  temporary  sequential  file  (i.e.,  the 
New  Collect  File)  awaiting  input  to  the  final  stage  of  processing 
performed  by  the  UPCL  subroutine. 

b.  Data  File  and  Table  Descriptions 

1.  MD  Formats  File 

This  sequential  file  contains  records  read  from 
the  MDCR  Format  units  in  PSL  random  storage  blocks.  If  present. 
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the  unit  level  formet  le  first  output  to  this  file  succeeded  by 
module.  Job,  subsystem  end  system  forgets,  as  required,  vlth 
Intervening  "header"  records  placed  l  identify  the  succeeding 
format  levels.  The  following  description  applies  to  such  records 

e  01  MD-FORMATS-RECORD. 

05  DATA-RECORD-CODES 

10  FILLER  PIC  X  (5)  . 

10  DATA-TYPE-CODE  PIC  X(l). 

88  HEADER-RECORD  VALUE  "H" . 

05  FORMAT-DATA. 

10  DATA-RECORD— ID . 


15 

PRIMARY— ITEM-NBR 

PIC 

9(3) 

15 

DATA-SEQUENCE— NBR 

PIC 

9(3) 

10  DATA-INPUT-SPEC. 


DATA 

-SOURCE-CODE 

PIC  X(l)  . 

88 

MANUAL 

VALUE 

SPACE 

88 

SPECIAL 

VALUE 

88 

INTRA-FORMAT 

VALUE 

88 

ACCOUNT-RECORD 

VALUE 

"A". 

15  REFERENCED-ITEM-NBR  PIC  9(3). 

10  DATA-EDIT-SPEC . 

15  EDIT-CHECK-TYPE  PIC  X(l). 

88  NUMERIC-EDIT  VALUE  "N". 

15  EDIT-CHECK-VALUE  PIC  9(2). 

10  FILLER  REDEFINES  DATA-EDIT-SPEC. 

15  SUMMARY-FUNCTION  PIC  X(3). 
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88 

AVERAGE 

88 

TOTAL 

88 

MAXIMUM 

88 

CYCLE 

10  ITEM-NAME 
10  FILLER 
10  ITEM-LABEL 
05  HEADER-DATA 
10  FILLER 

10  FORMAT-LEVEL -NBR 


88 

SYSTEM-LVEL 

88 

SUBSYS-LEVEL 

88 

MODULE-LEVEL 

88 

JOB-LEVEL 

88 

UNIT-LEVEL 

10  FILLER 

10  HEADER-LEVEL-NAME 
10  FILLER 

10  HEADER-UNIT-NAME 
10  FILLER 


VALUE  "AVG". 

VALUE  "TTL" . 
VALUE  "MAX". 
VALUE  "CYC". 

PIC  X (12 ) . 

PIC  X(l) . 

PIC  X (48) . 

REDEFINES  FORMAT-DATA 
PIC  X(6) . 

PIC  9(1). 

VALUE  1. 

VALUE  2. 

VALUE  3. 

VALUE  4. 

VALUE  5. 

PIC  X(6) . 

PIC  X  (6) . 

PIC  X  (7 ) . 

PIC  X (30) . 

PIC  X(18) . 


The  above  description  also  applies  to  the  MDCR  Format  unit  data 
lines  exception  that  no  header  data  is  present. 

2.  Collection  Control  Table 

A  section  of  the  control  table  is  used  to  contain 
data  relative  to  each  report  format  level  that  may  be  in  use. 

The  following  description  applies  to  this  section: 
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05  FORMAT-ENTRIES  OCCURS  5  TIMES. 


■  10 

START-INDEX 

PIC 

S9  (9) 

COMP. 

f 

■  10 

END-INDEX 

PIC 

S9  (9) 

COMP.  f 

I 

FORMAT-REQUIRED-SW 

PIC 

S9  (9) 

COMP. 

88  FORMAT-REQUIRED 

VALUE  1. 

1  10 

RECYCLE-REQUIRED-SW 

PIC 

S9  (9  ) 

COMP .  : 

88  RECYCLE-REQUIRED 

VALUE  1. 

i 

1 

10 

FORMAT-LEVEL-NAME 

PIC 

X(6)  . 

1 

i 

| 

10 

START-CYCLE-DATE 

PIC 

X  (6  )  . 

1 

10 

CYCLE-DURATION 

PIC 

S9  (9) 

COMP. 

J  The  first  four 

entries  are  reserved 

for  system,  subsystem,  module 

and  job  level  formats  which  utilize  START-INDEX  and  END-INDEX 
to  denote  the  beginning  and  end  of  data  Item  entries  made  to  the 
MD  Format  Table  for  each  format  level.  The  fifth  table  entry, 
utilized  by  the  unit  level  format,  does  not  reference  the  MD 
Formats  Table  since  none  of  its  data  items  require  accumulation, 
however  the  remaining  data  elements  apply  to  this  and  the  other 
four  entries.  The  FORMAT-REQUIRED-SW  is  used  to  communicate 
information  from  the  PPCL  subroutine  (which  mutually  processes 
the  management  plan)  to  the  PCCL  subroutine  which  indicates 
whether  reference  to  a  given  format  level  ia  made  in  the  manage¬ 
ment  plan.  Only  format  levels  to  which  reference  is  made  are 
required.  The  unit  level  format  is  not  required  but  will  be 
utilized  when  module  level  data  is  processed  to  control  the 
collection  of  unit  level  data  associated  with  each  module 
referenced  by  the  plan.  The  RECYCLE -REQUIRED-SW  is  set  by  the 
PCCL  subroutine  based  upon  calculations  made  using  the  MDCR 
Format  unit  accounting  record  Indication  of  "Start  date  of  cycle" 
and  "Cycle  period"  in  conjunction  with  the  current  (i.e.,  system) 
date  which  determine  if  the  specified  (i.e.,  non-zero)  cycle 
period  has  reached  an  end.  If  so,  the  "End  of  cycle  switch"  and 
"End  date  of  cycle"  is  set  In  the  MDCR  Format  unit  accounting 
record  which  will  cause  cyclic  data  accumulations  at  that  level 
to  be  recycled  the  next  time  the  MDCOLLECT  Function  is  used. 

The  REC YCLE-REQU IRED-SW  element  is  set  and  made  available  for 
data  collection  to  indicate  that  the  end  of  cycle  for  that  format 
level  has  been  determined.  The  START-CYCLE-DATE  and  CYCLE- 
DURATION  elements  are  also  set  and  made  available  for  output. 

The  FORMAT-LEVEL-NAME  entry  is  taken  from  the  contents  of  "Unit 
level  name"  in  the  MDCR  Format  unit  accounting  record. 


2-160 


Another  section  of  the  Collection  Control  Table  is 
used  to  contain  data  relative  to  each  plan  level  element  currently 
being  processed;  that  is,  for  which  statistical  data  is  being 
accumulated.  The  following  description  applies  to  this  section: 

05  MD-PLAN-ENTRIES  OCCURS  4  TIMES. 

10  MD-UNIT-NAME  PIC  X(30). 

10  MD-UNIT-NBR  PIC  S9(9)  COMP. 

88  NO-PLAN-INPUT  VALUE  ZERO. 

10  MD- BLOCK-NBR  PIC  S9(9)  COMP. 

88  NO-MANUAL-INPUT  VALUE  ZERO. 

10  SUB-UNIT-COUNT  PIC  S9(9)  COMP. 

As  plan  level  elements  are  read  from  the  Plan  Keyword  File 
they  are  entered  In  this  section  of  the  Collection  Control 
Table.  The  MD-UNIT-NAME  is  the  name  of  the  plan  level  element; 
MD-UNIT-NBR  provides  a  value  from  which  a  record  key  to  Random 
Collect  File  can  be  computed  for  the  purpose  of  retrieving 
previously  collected  cyclic  data  statistics.  The  MD -BLOCK-NBR 
is  determined  as  the  PSL  storage  block  number  of  manual  input 
data  that  is  user-provided  for  the  named  plan  level  element. 

The  SUB-UNIT-COUNT  entry  is  determined  from  cummulatlve  count 
of  elements  (or  units)  which  are  subordinate  to  the  referenced 
plan  level  element.  For  example,  if  the  referenced  level  is 
"MODULE"  (i.e.,  the  third  table  entry),  a  count  of  included 
units  (both  real  and  stub)  would  be  determined;  if  the 
referenced  level  is  "SYSTEM"  (i.e.,  the  first  table  entry),  a 
count  of  plan  level  elements  immediately  subordinate  to  the 
system  level  would  be  computed.  The  value  thus  determined  is 
made  available  for  collection  at  the  referenced  level  of  output. 

3.  MD  Formats  Table 

This  table  Is  referenced  by  the  Collection  Control 
Table  as  previously  described.  An  entry  Is  made  in  the  MD 
Formats  Table  for  each  numeric  data  Item  to  be  collected.  The 
data  description  of  these  entries  is  as  follows: 

e  01  MD-FORMATS-TABLE . 

05  FORMAT-DATA-ENTRY  OCCURS  400  TIMES. 

10  PRIME-ITEM-NBR  PIC  X(3). 
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10  REF-LEVEL-CODE 


PIC  X(l). 


10  REF-ITEM-NBR 
10  EDIT-FUNCTION 
05  COLLECTED-ITEM-VALUES 
10  TBL-ITEM-VALUE 


PIC  X (3 ) . 

PIC  X ( 3 ) . 

OCCURS  400  TIMES. 
PIC  S9  (9 )  COMP. 


The  FORMAT-DATA-ENTRY  items  are  reflective  of  the  data  taken 
from  the  MD  Formats  File.  The  COLLECTED-ITEM-VALUES  entries  are 
dynamically  updated  to  contain  the  accumulated  data  statistics 
for  each  plan  level  report  element  currently  in  process.  These 
values  are  reset,  accumulated,  and  output  in  accordance  with  the 
management  data  plan  and  the  dictates  of  the  FORMAT-DATA-ENTRY 
specifications. 

4.  New  Collect  File 


The  New  Collect  File  is  a  sequential  file  having 
the  same  description  as  the  MD  Formats  File  with  the  exception 
of  the  following  redefinitions: 

10  FILLER  REDEFINES  ITEM-LABEL. 

15  ITEM-VALUE  PIC  X(48). 

10  FILLER  REDEFINES  ITEM-LABEL. 

15  COMP-ITEM-VALUE  PIC  S9(8). 

15  FILLER  PIC  X  (40) . 

10  FILLER  REDEFINES  ITEM-LABEL. 

15  XC HECK-REMARK  PIC  X(48). 

This  redefined  data  description  also  applies  to  the  data  lines 
of  the  MDCR  Collection  and  Archive  units  which  include  header 
data  lines  as  described  for  the  MD  Formats  File  to  identify 
the  collected  report  level  data  elements.  Also,  for  purposes 
of  data  collection  the  DATA-REC0RD-C0DES  entry  is  given  the 
following  expanded  definition: 

05  DATA-RECORD-CODES  . 


10 

FILLER 

PIC 

X(l)  . 

10 

XC HECK-VARIANCE 

PIC 

9(2)  . 
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10  FILLER  PIC  X(l)  . 


10 

ACTION-CODE 

PIC  X(l) . 

88 

NUMERIC-ITEM 

VALUE  "N". 

88 

INPUT-HEADER 

VALUE  "I". 

88 

OUTPUT-HEADER 

VALUE  "0". 

10 

DATA 

.-TYPE-CODE 

PIC  X(l) . 

88 

ITEM-DATA 

VALUE  SPACE. 

88 

XCHECK-DATA 

VALUE  "X". 

88 

HEADER-RECORD 

VALUE  "H" . 

Input  header  records  are  placed  In  advance  of  collected  data 
records  so  as  to  dynamically  indicate  the  report  level  hierarchy 
for  each  plan  level  element  whose  data  appears  following  an 
output  header  record.  The  DATA-TYPE-CODE  entry  distinguishes 
the  three  types  of  collected  data  as  shown  while  the  ACTION-CODE 
enables  numeric  (i.e.,  computational)  item  data  to  be  distin¬ 
guished  from  non-computational  item  data  and  to  distinguish  the 
two  types  of  header  records  previously  noted.  When  XCHECK  data 
is  noted  the  XCHECK— VARIANCE  entry  will  contain  the  computed 
percent  variance  and  the  redefined  XCHECK-REMARK  entry  may 
contain  a  user-provided  remark. 

c.  Branching  and  Error  Conditions 

The  following  table  describes  the  branching  and  error 
conditions  relative  to  HIPO  diagram  1.1. 4. 3. 1.2. 


ic  t  ion 

erence 

Condition 

Code 

Message 

Category 

Program 

Act  ion 

No  t' 

i 

11 

ERR 

Return  to  CLMD 

2 

26 

ERR 

Return  to  CLMD 

2 

30 

ERR 

Return  to  CLMD 

2 

64 

ERR 

Continue  processing 

1 

5 

6 

ADV 

Continue  processing 

6 

26 

ERR 

Continue  processing 

2 

10 

65 

ERR 

Continue  processing 
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2 . 2 . 1 . 1 . A . 3 . 1 . 3  UPCL  -  Update  Collection 


The  current  MDCR  Collection  unit  is  archived  and/or 
replaced  by  the  newly  collected  management  data. 

a.  Program  Operations 

HIPO  diagram  1.1. A. 3. 1.3  delineates  the  processing 
functions  performed  by  the  UPCL  subroutine.  The  New  Collect 
File  is  read  into  PSL  storage  to  establish  an  updated  (i.e., 
new)  MDCR  Collection  unit.  The  current  (i.e.,  previously 
stored)  MDCR  Collection  unit  data  is  archived  when  required 
or  else  the  PSL  storage  which  it  occupies  is  released.  The 
MDCR  Plan  unit  accounting  record  is  read,  when  archiving  is 
performed,  to  obtain  the  current  (i.e.,  last  used)  archive 
unit  serial  number  (ARCHIVE— COUNT) .  This  number  is  incremented 
by  one  and  used  in  conjunction  with  the  date  on  which  the 
archived  data  was  collected  to  provide  a  unique  suffix  for  the 
new  MDCR  Archive  unit  name.  The  accounting  record  of  the  MDCR 
Plan  unit  is  written  to  reflect  the  incremented  ARCHIVE-COUNT 
value. 

b.  Data  File  and  Table  Descriptions 

The  New  Collect  File  is  as  previously  described. 

c.  Branching  and  Error  Conditions 

The  one  error  condition  which  may  be  expected  is 
that  relating  to  a  lack  of  sufficient  storage  space  in  the 
designated  Management  Section.  Error  condition  ERR005  may 
occur  when  adding  an  index  or  when  writing  a  data  line,  a 
PSL02A  or  PSLOAA  condition  may  occur  which  will  cause  the 
UPCL  subroutine  to  exit  with  the  PROCESSING-STATUS  parameter 
set  accordingly. 
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2. 2. 1.1. 4. 4  PRMR  -  Print  Management  Report 

A  job  to  produce  a  Program  Structure  or  Management  Data 
report  is  spawned. 

a.  Program  Operations 

HIPO  diagram  1.1. 4. 4  depicts  the  program  operations 
of  the  PRMR  module.  Keyword  names  and  input  values  are  obtained 
from  the  Keyword  Card  file.  If  the  keyword  name  is  found  in 
the  keyword  table  containing  a  list  of  general  keywords, 
the  keyword  value  is  validated,  as  required,  and  stored,  else 
the  named  keyword  is  presumed  to  be  utilized  by  the  spawned 
program.  To  accomodate  this  latter  purpose,  non-general 
keyword  inputs  are  temporarily  stored  on  the  Keyword  Hold  file 
awaiting  further  processing.  When  all  keyword  inputs  have 
been  processed,  the  general  keyword  input  is  verified  to 
determine  if  any  required  keyword  input  is  missing.  If  no 
errors  have  occurred  to  this  point,  the  designated  report 
procedure  is  located  in  the  JOB  section  of  the  system  project 
library.  The  job  control  cards  which  constitute  the  located 
procedure  are  read  and  examined  for  an  INPUT  flagword  (in 
columns  73  through  80).  When  such  is  found,  the  file  code  on 
that  job  card  is  inserted  into  a  $  DATA  card  and  written  to  the 
spawned  job  file  after  which  the  stored  (i.e.,  general)  keywords 
and  values,  followed  by  the  held  keywords  and  values  are  written 
to  the  Spawned  Job  file.  Job  control  cards  which  do  not  contain 
the  INPUT  flagword  are  written  directly  to  the  Spawned  Job  file 
without  modification.  The  nature  of  the  spawned  job  activity 
is  determined  by  the  contents  of  the  job  procedure  stored  in 
the  system  project  library  which  is  not  restricted  to  a  specific 
set  of  procedures,  although  the  MDPRINT  Function  currently 
supports  the  spawning  of  the  PS  and  MD  report  procedures  and 
programs  as  an  integral  part  of  the  PSL  system  facility. 

b.  Data  Files  and  Table  Descriptions 
1.  Keyword  Hold  File 

The  following  File  Description  (FD)  applies  as 


defined  in 

the 

PSL  Copy  Library 

(CPYLIB)  . 

01  KEYWORD 

-CARD  . 

05 

KEYWORD-FIELD 

PIC 

X  (  1 2  ) 

05 

SEQUENCE-FIELD 

PIC 

9(3)  . 

05 

VALUE-FIELD . 

10 

PROJECT-FIELD 

PIC 

X  (  1 2  ) 

10 

SEQUENCE-FIELD 

PIC 

9(3)  . 

10 

LIB-SEC-FIELD 

PIC 

X  (  8  )  . 
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.  ■  y.  *» 


10 

PASSWORD-FIELD 

PIC 

X (12)  . 

10 

NAME-FIELD 

PIC 

X (12)  . 

10 

FILLER 

PIC 

X  (4 )  . 

05 

UNIT 

-VALUE-FIELD 

REDEFINES 

;  VALUE 

10 

UNIT-NAME-FIELD 

PIC 

X (30 )  . 

10 

UNIT-KEY-FIELD 

PIC 

X(12)  . 

10 

UNIT-TYPE-FIELD 

PIC 

X. 

10 

FILLER 

PIC 

X  (  5  )  . 

05 

FILLER 

PIC 

X(17)  . 

The  keyword  name  is  stored  in  KEYWORD-FIELD  and 
the  keyword  value  is  stored  in  VALUE-FIELD  according  to  the 
nature  of  the  information  being  forwarded.  LIBSEC  keyword 
information  is  stored  in  PROJECT-FIELD  and  LIB-SEC-FIELD  to 
denote  a  project  library  section.  Non-general  keyword  values 
are  stored  in  VALUE-FIELD  as  received  from  the  Obtain  Keyword 
( 0 BKW )  subroutine  described  in  subsection  2. 2. 1.2. 6. 2.  The 
keyword  data  passed  to  the  Spawned  Job  file  is  subsequently 
in  the  above  format  and  so  utilized  by  the  Print  Program 
Structure  (PRPS)  and  Print  Management  Data  (PRMD )  programs. 


c.  Branching  and  Error  Conditions 


The  following  branching  and  error  conditions  apply 
to  HIPO  diagram  1.1. 4. 4: 

Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ 


2 

19 

ERR 

Skip 

process 

if  5 

thru 

if  10 

4 

32 

ERR 

Skip 

process 

if  5 

thru 

If  10 

5 

81 

ERR 

Skip 

process 

if  6 

thru 

#10 

10 

16 

ADV 

Normal  exit 

11 


7 


ERR 


Error  exit 


2 . 2 . 1 • 1 . 4 . 4 . 1  PRPS  -  Print  Program  Structure 


The  PRPS  module  is  called  to  produce  a  program  structure 
map  for  a  designated  top  unit  and  the  Included  units  which 
are  referenced  by  INCLUDE  statements  in  the  top  unit  and 
included  unit  lines  of  code.  CALL  statements  are  optionally 
processed  to  delineate  the  occurrence  of  called  unit 
references  in  the  program  structure. 

a.  Program  Operations 

HIPO  diagram  1.1. 4. 4.1  depicts  the  program  operations 
of  the  PRPS  module.  The  keywords  UNIT,  CALL,  NEST  and 
associated  keyword  values  are  processed  from  the  Keyword  Card 
file.  Only  the  UNIT  keyword  and  value  are  specifically 
required  since  default  values  are  determined  for  the  CALL  and 
NEST  keyword  inputs.  The  Read  for  Program  Structure  (RDPS) 
module  is  called  to  obtain  the  start-of -module  line  for  the 
designated  top  unit  name  and  the  report  header  lines  are 
initially  generated.  The  INCLUDE  and  CALL  statements  contained 
in  the  top  unit  are  sequentially  processed  in  the  DO  loop 
operation  that  includes  steps  4  through  7.  The  level  number 
is  initialized  to  1  at  the  start  of  the  module  and  thereafter 
incremented  by  1  for  each  start-of-unit  and  decremented  by  1 
for  each  end-of-unlt  processed  until  the  end-of -module 
(i.e.,  top  unit)  is  reached.  The  updated  level  number  is 
equivalent  to  the  current  level  of  INCLUDEd  unit  nesting  and  so 
determines  the  indentation  of  the  printed  output.  Units  whose 
level  numbers  exceed  the  maximum  specified  by  the  NEST  keyword 
input  or  default  value  will  not  be  printed  in  the  Program 
Structure  report.  If  the  CALL>*YES  option  is  selected,  the 
names  of  CALLed  programs  will  be  non-redundant ly  added  to  the 
CALL-TABLE  so  that  when  the  end  of  module  is  reached,  a  complete 
list  of  all  the  units  called  by  the  top-unit  program  is  stored. 
The  DO  loop  operation  involving  steps  2  through  10  is  active 
in  obtaining  each  successive  called  program  name  from  the 
CALL-TABLE  and  treating  it  as  the  next  top  unit  name  to  be 
processed  and  reported.  SP  flag  line  remarks  are  printed  at 
the  bottom  of  each  page  of  the  program  structure  report  and  a 
Cross  Reference  list  is  printed  as  adjunct  which  alphabetically 
orders  the  INCLUDEd  unit  names  and  alphabetically  lists  the 
INCLUDlng  units  that  contain  the  given  INCLUDEd  unit. 

b.  Data  File  and  Table  Descriptions 

The  following  data  files  and  tables  are  especially 
important  in  the  preceding  program  operations: 
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FD  XREF-FILE . 


XREF 

-RECORD . 

05 

XREF-UN IT-NAME 

PIC 

X (30) . 

05 

XREF-HIGHER-NAME 

PIC 

X (30)  . 

05 

XREF-PR0 JECT-NAME 

PIC 

X(12) . 

05 

XREF- LIBRARY— NAME 

PIC 

X  (  7  )  . 

05 

XREF -UN IT -TYPE 

PIC 

X  (16)  . 

SD  SORT-FILE. 

01  SORT-RECORD. 

05  SORT-NAMES  PIC  X(60). 

05  FILLER  PIC  X(35)  . 

The  XREF-RECORD  is  written  for  each  included  unit  as  well  as 
the  top  unit  (for  which  XREF-HIGHER-NAME  is  set  equal  to 
"TOP  OF  TREE").  The  SORT-FILE  is  used  in  sorting  the  XREF- 
FILE  on  ASCENDING  KEY  SORT-NAMES  to  produce  the  Cross 
Reference  listing. 

c.  Branching  and  Error  Conditions 


The  following  branching  and  error  conditions  apply 


to  HIPO  diagram  1.1. 4. 4 

.1: 

Function 

Condition 

Message 

Program 

Reference 

Code 

Category 

Action 

Note 

1 

19 

ERR 

Exit  program 

1 

7 

ERR 

Exit  program 

1 

NOTES : 

(1)  Error  messages  are  printed  using  the  Print  Error 
(PRER)  module.  Exit  is  made  from  the  program  to 
conclude  the  current  spawned  job  activity  and  the 
next  spawned  job  activity  (if  any)  is  executed. 


2 . 2 . 1 . 1 . 4 . 4 . 2  PRMD  -  Print  Management  Data 

A  report  is  produced  from  the  contents  of  the  most  j 

recent  management  data  collection  or  from  a  designated  set  | 

of  archived  data  collections.  * 

I 

Vi 

a.  Program  Operations 

HIPO  diagram  1.1. 4. 4. 2  depicts  the  processing 
performed  by  the  PRMD  module  in  a  job  activity  spawned  via 
the  MDPRINT  Function  using  the  REPORT-MD  option.  The  Keyword 
Card  File  contains  the  keywords  and  keyword  values  that  direct 
PRMD  to  the  appropriate  management  data  library,  select  the  I 

MDCR  Collection  unit  or  MDCR  Archive  unit(s)  to  provide  input  ! 

data,  and  specify  the  report  level  elements  to  be  retrieved  j 

and  printed.  The  MDCR  Format  units  are  read  to  obtain 
descriptive  labels  for  each  of  the  data  items  that  may  appear 
in  the  reported  output.  A  Format  Label  Table  is  built  to 
contain  these  output  labels  for  ready  use  when  a  report  data 
line  is  generated.  MDCR  Collection  or  Archive  unit  input  is 
initiated  (based  upon  keyword  inputs)  and  each  data  line  in 
the  initiated  unit  read  to  determine  its  data  type.  Header 
data  lines  precede  report  data  lines  in  the  collected  data 
line  sequence  to  identify  the  report  element  hierarchy 
(e.g. ,  SYSTEM  and  SUBSYSTEM  element  names)  with  which  a 
collected  report  level  element  (e.g.,  MODULE  level  element)  is 
associated.  Report  data  lines  are  qualified  for  output  by 
comparing  preceding  header  line  information  with  the  keyword 
value  inputs  that  are  given  to  suppress/enable  designated 
report  levels  and/or  restrict  output  to  a  specific  report 

element  hierarchy.  The  OKAY-TO-PRINT-SW  (included  in  the  i 

PRMD — WO RK ING— S TORAG E— 7 7  unit)  is  set  to  indicate  whether  j 

succeeding  report  data  lines  are  qualified  for  output.  The  I 

COBOL  Report  Writer  facility  is  utilized  to  generate  the 
required  management  report.  Report  level  elements  and  data 

items  are  printed  in  the  same  sequence  as  collected  and  ; 

stored  so  that  the  management  data  plan  (as  prescribed  in  the  1 

MDCR  Plan  unit)  and  management  data  formats  (as  prescribed  in 
the  MDCR  Format  units)  determine  the  order  and  content  of 
management  data  reports  which  can  be  produced. 

b.  Data  File  and  Table  Descriptions  J 

The  Format  Label  Table  is  as  follows:  j 

i 

•  01  FORMAT-LABEL-TABLE.  j 

05  FILLER  OCCURS  400  TIMES.  I 
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10  PR1ME-ITEM-NBR 


PIC  X  (3)  . 


10  FORMAT-ITEM-LABEL  PIC  X(48). 

The  above  Cable  is  referenced  from  the  Format  Level 
Table  to  which  the  following  description  applies: 

•  01  FORMAT-LEVEL-TABLE. 

05  FILLER  OCCURS  5  TIMES. 

10  START-INDEX  PIC  S9(9)  COMP. 

10  END-INDEX  PIC  S9(9)  COMP. 

The  five  format  levels  are  (as  referenced  under  paragraph 
2 . 2 . 1 . 1 . 4 . 3 . 1  pertaining  to  the  Collect  Management  Data  module): 
system;  subsystem;  module,  job  and  unit.  The  start  and  end 
indexes  bracket  the  item  label  entries  in  the  FORMAT-LABEL-TABLE 
against  which  the  data  item  number  read  from  the  MDCR  Collection 
or  Archive  unit  (whose  format  parallels  the  New  Collection  File 
described  under  paragraph  2 . 2 . 1 . 1 . 4 . 3 . 1 . 2  ,  item  b)  is  matched 
with  the  PRIME-ITEM-NBR  entries  corresponding  to  the  report 
element  level  being  processed. 

c.  Branching  and  Error  Conditions 

The  following  table  delineates  the  branching  and  error 
conditions  which  apply  to  HIPO  diagram  1.1. 4. 4. 2. 


Function 

Reference 

Cond i t ion 
Code 

Message 

Category 

Program 

Action 

No  te 

1 

2,19 

ERR 

Perform  Process 

it  8 

1 

2 

6 

ADV 

Perform  Process 

it  8 

1 

3 

11 

ERR 

Perform  Process 

it  8 

1 

4 

26 

ERR 

Perform  Process 

it 8 

1 

7 

18 

N/A 

Perform  Process 

it  4 

8 

0 

N/A 

Normal  Exit 

8 

i 

ERR 

Error  Exit 

Note: 

(1) 

Error  exit  in 

Process  11 8 

will  be  taken. 
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2.2. 1.1. 5  Output  Processing 

Output  processing  functions  are  performed  to  print  an  index 
(INDEX),  print  source  data  (SOURCE),  print  data  by  author 
(AUTHOR),  print  documentation  (DOCUMENT)  and  scan  for  a  character 
string  (CSCAN) .  The  program  modules  whose  operations  are  invoked 
by  these  functions  are  described  below. 
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2. 2. 1.1. 5.1  PRXX 


Print  an  Index 


The  module  PRXX,  which  corresponds  to  the  PSL  function 
**  INDEX,  prints  a  status  report  for  a  section  of  a  PSL  library. 
The  report  contains  information  pertaining  to  the  section  as 
a  whole,  as  well  as  an  alphabetical  listing  of  certain  data 
items  pertaining  to  each  unit  of  the  section  found  in  the 
section  index. 

a.  Program  Operations 

HIPO  diagram  1.1. 5.1  describes  operations  performed. 

The  specific  data  items  printed  and  the  source  of  each  one  are 
shown  in  Table  2-1.  The  number  of  free  (unused)  blocks  in 
the  section  is  determined  by  scanning  the  PSL-FREE-BLOCK-SWS  in 
the  PSL-CONTROL-BLOCK* s  of  the  section.  Each  bit  (six  bit6 
per  byte)  of  the  PSL-FREE-BLOCK-SWS  represents  one  block  allo¬ 
cated  to  the  section.  Each  block  of  the  section  (except  the  first 
control  block  -  block  0)  is  represented  by  one  bit.  A  bit  value 
1  indicates  that  the  corresponding  block  is  free;  a  bit  value 
0  indicates  that  the  block  is  in  use.  The  number  of  bits  with 
value  0  are  counted  as  the  PSL-FREE-BLOCK-SWS  are  scanned. 

b.  Data  File  and  Table  Descriptions 

The  data  items  contained  in  the  index  report  are  shown 
in  Table  2-1. 


I 

i 


l 


HEADER-PROJECT-NAME  PARAMETER-TABLE 


PRIST-UPD-MONTH  Unit  ACCOUNTING-INFORMATION 


4* 

ERR 

Subsequent 

bypassed 

processing 

Is 

19 

ERR 

Subsequent 

bypassed 

processing 

is 

32 

ERR 

Subsequent 

bypassed 

processing 

Is 

6 

ADV 

Subsequent 

bypassed 

processing 

Is 

33 

PSL 

Subsequent 

bypassed 

processing 

Is 

50 

n/a 

Noraal  end 

of  processing 

llbr*ry  ®*c tlon  file  could  not  b* 


2. 2. 1.1. 5. 2  PRSD  -  Print  Source  Data 


The  module  PRSD,  which  corresponds  to  the  PSL  function 
**  SOURCE,  produces  a  printed  listing,  punch  card  or  tape  copy 
of  any  unit  in  a  PSL  library  section  that  is  in  card-image 
format.  This  includes  units  in  the  SOURCE,  PDL ,  LINK,  JOB, 

TEST,  MGMT  and  TEXT  sections.  If  the  unit  is  from  the  SOURCE 
or  the  PDL  section  and  the  unit  is  written  as  a  supported 
structured  language  (Structured  COBOL,  Structured  JOVIAL  or 
Structured  FORTRAN),  the  structured  code  is  indented  to  high¬ 
light  the  control  structures  used  in  the  code.  For  card  or 
tape  output,  one  header  record  is  written. 

a.  Program  Operations 

HIPO  diagram  1.1. 1.2  describes  operations  performed. 

For  the  printed  listing  option,  module  PRUN  i»  called  to 
produce  the  standard  PSL  source  listing  and  to  perform  structured 
programming  checking  for  the  structured  languages. 

b.  Data  File  and  Table  Descriptions 

1.  UNIT-LISTING-FILE 

..  .  The  format  and  contents  of  the  standard  unit 

listing  report  are  described  with  the  module  PRUN. 

2.  UNIT-CARD-FILE  and  UNIT-TAPE-FILE 


.  .  The  UNIT-CARD-FILE  and  UNIT-TAPE-FILE  contain 

r*COrf8  °f  each  lin*  «>f  each  specified  unit.  In 

RECORD0  ThihdU?it4l*  Written  on.  header  record,  the  UNIT-HEADER  - 
RECORD.  The  data  items  contained  in  this  record  are: 

03  FILLER  PIC  x(25)  VAL(JE  ALL„  „ 


05  HEADER-UNIT-NAME 


PIC  X(30). 


name  of  unit  whose  source  records  follow 


05  FILLER 


PIC  X(25)  VALUE  ALL".". 


Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action  Note 

1 

2 

ERR 

Subsequent  processing  is 
bypassed 

1 

19 

ERR 

Subsequent  processing  is 
bypassed 

1 

32 

ERR 

Subsequent  processing  is 
bypassed 

1 

10 

ERR 

Subsequent  processing  is 
bypassed 

2 

6 

ADV 

Subsequent  processing  is  1 

bypassed 

3,9 

50 

N/A 

Normal  end  of  processing 

4 

26 

ERR 

Subsequent  processing  is 
bypassed 

5-8,10 

18 

N/A 

Normal;  continue  with 
next  unit 

5-8,10 

47 

PSL 

Discontinue  current  unit;  2 
continue  with  next  unit 

5-8,10 

48 

FSL 

Discontinue  current  unit;  2 
continue  with  next  unit 

Notes : 

(1)  Unable  to  assign  require  library-section  file.  See 
description  of  ASFL  for  conditions  which  cause  file 
assignment  to  fail. 

(2)  Unable  to  initialize  to  read  line  or  to  read  line. 
See  description  of  RDUN  for  conditions  vhich  cause 
read  or  read  initialization  to  fail. 


2. 2. 1.1. 5. 3  PRAU  -  Print  Author  Report 

The  PRAU  module,  which  corresponds  to  the  PSL  function 
**  AUTHOR,  prints  alphabetical  listing  of  data  items  pertaining 
to  those  units  of  a  PSL  library  section  whose  originating 
programmer  or  last  updating  programmer  is  a  specified  name. 
Optionally,  a  source  listing  of  each  such  unit  can  be  printed. 
The  source  option  is  available  only  for  those  sections  whose 
unit  are  in  card-image  format.  These  are  SOURCE,  PDL ,  LINK, 
JOB,  MGMT ,  TEXT,  and  TEST  sections. 

a.  Program  Operations 

HIPO  diagram  1.1. 5. 3  describes  the  operations  per¬ 
formed.  User  options  determine  whether  units  to  be  listed 
should  be  those  with  a  specific  originator,  update  programmer 
or  either.  When  originator  is  specified,  the  index  listing 
will  include  the  name  of  the  update  programmer  for  each  unit 
printed.  Also  when  update  programmer  is  selected,  the  name  of 
the  originator  is  printed  on  the  index  list  for  each  unit. 

If  both  update  programmer  and  originator  are  specified,  they 
must  be  the  same  name,  and  the  index  listing  will  include  for 
each  unit  either  originator  or  update  programmer,  whichever 
is  different  from  the  specified  value. 

b.  Data  File  and  Table  Descriptions 

The  data  items  contained  in  the  author  report  are 
shown  in  Table  2-2.  v 


1.1. 5. 3  Name  -  PRMJ  -  Print  Author 


*"  * 


1 

1 

Branching 

and  Error  Conditions 

B  Function 

■  Reference 

Condition 

Code 

Message 

Category 

Program 

Action  No  to 

I 

2 

ERR 

Subsequent  processing  is 
bypassed 

l 

19 

ERR 

Subsequent  processing  is 
bypassed 

1 

l 

32 

ERR 

Subsequent  processing  is 
bypassed 

1 

1 

10 

ERR 

Occurs  only  for  SOURCE 
option;  subsequent 
processing  is  bypassed 

1 

l 

155 

ERR 

Subsequent  processing  is 
bypassed 

2 

I 

6 

ADV 

Subsequent  processing  is  1 

bypassed 

3 

f 

50 

N/A 

Normal  end  of  processing 

i  4 

33 

PSL 

Subsequent  processing  is 
bypassed 

V  Note: 

(1) 

i 

a8aianedlr*s  libr**V  section  file  could  not  be 

whicS  c^ae  filee^r,iPti°n  °f  ASFL  f°r  editions 
cn  cause  tile  assignment  to  fail. 

5 
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»>*•<»»  <M«*» i**t» v-t***^ 


2. 2. 1.1. 5. 4  PRDC 


Print  Document 


The  module  PRDC,  which  corresponds  to  the  PSL  function 
**  DOCUMENT,  prints  document  text  incorporating  card-image 
units  stored  in  PSL  libraries,  according  to  user  specifications. 
Units  in  the  SOURCE,  PDL ,  LINK,  JOB,  TEST,  MGMT ,  and  TEXT 
sections  may  be  printed.  User  subfunction  cards  provide 
specifications  for  spacing,  pagination,  headers  and  page  eject. 

a.  Program  Operations 

HIPO  diagram  1.1. 5. 4  describes  operations  performed. 

Line  spacing  is  controlled  so  that  if  more  than  one  user 
specification  for  spacing  between  text  lines,  spacing  after 
header,  spacing  between  units  and  absolute  spacing  all  apply  to 
a  single  line,  the  spacing  used  will  be  the  maximum  value  of 
any  one  of  these.  Multiple  specifications  for  spacing  of  a 
single  line  are  never  cumulative. 

b.  Data  File  and  Table  Descriptions 
1.  Document  Report 

The  document  report  is  the  primary  output  of  the 
PRDC  module.  Its  contents  are  completely  determined  by  user 
specification  cards.  The  user  may  specify  that  lines  be  printed 
on  the  report  in  the  following  ways: 

(a)  Header  lines  to  be  printed  may  be  inserted 
in  the  control  card  input  stream  after  a 
**  HEADER  subfunction. 

(b)  Text  lines  to  be  printed  may  be  inserted  in 
the  control  card  input  stream  after  a  **  TEXT 
subfunction . 

(c)  One  or  more  units  stored  in  a  PSL  library 
section  may  be  requested  for  printing  with 
the  **  TEXT  subfunction. 

(d )  Insertion  of  blank  lines  may  be  requested  with 
the  **  SPACE  subfunction. 

(e)  Page  eject  may  be  requested  with  the  **  EJECT 
sub  f unc  t ion  . 
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Branching  and  Error  Conditions 


Func  t ion 
Reference 

Condition 

Code 

Message 

Category 

Progran 

Action 

Note 

3 

1 

N/A 

Normal  return  to  caller 

1.4 

2 

ERR 

Continue  processing;  may 
prevent  access  to  and 
thus  printing  of  a  unit 

1,4 

19 

ERR 

Continue  processing;  may 
prevent  access  to  and 
thus  printing  of  a  unit 

1 

32 

ERR 

Continue  processing;  may 
prevent  access  to  and 
thus  printing  of  a  unit 

1 

10 

ERR 

Continue  processing; 
units  from  library  will 
not  be  printed 

2 

6 

ADV 

Continue  processing; 
units  from  library  will 
not  be  printed 

1 

6 

148 

ERR 

Excess  header  lines 
ignored 

10 

47 

ERR 

Continue  processing; 
unit  from  library  will 
not  be  printed 

2 

11 

48 

ERR 

Bypass  remainder  of 
unit  being  processed; 
continue  with  next 
subf unction 

2 

Notes: 

(1)  Unable  to  assign  library  section  file.  See 
description  of  nodule  ASFL  for  specific  conditions 
which  cause  "unable  to  assign  file". 

(2)  Unable  to  initialize  or  read  line  of  unit.  See 
description  of  nodule  RDUN  for  specific  conditions 
which  cause  "unable  to  read". 
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2. 2. 1.1. 5. 5  SCSG  -  Scan  for  String 

The  module  SCSG,  which  corresponds  to  the  PSL  function 
**  C SCAN ,  scans  for  the  occurrence  of  a  specific  character  string 
in  any  unit  of  a  section.  It  lists  the  unit  name  and  corres¬ 
ponding  lines  of  code  for  each  occurrence  found. 

a.  Program  Operations 

HIPO  diagram  1.1. 5. 5  describes  the  operations  performed. 

b.  Data  File  and  Table  Descriptions 

The  data  items  contained  in  the  string  scan  report 
are  shown  in  Table  2-3. 
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Release  section  file  (RLFL) 


LINE-LISTING  Line  of  unit  where  string 

was  found. 


c . 

Branching  and 

Error  Conditions 

Function 

Condition 

Message 

Program 

Reference 

Code 

Category 

Action  Note 

1 

2 

ERR 

Subsequent  processing  is 
bypassed 

1 

19 

AilR 

Subsequent 

bypassed 

processing  is 

5 

< 

1 

32 

ERR 

Subsequent 

bypassed 

processing  is 

1 

10 

ERR 

Subsequent 

bypassed 

processing  Is 

2 

6 

ADV 

Subsequent 

bypassed 

processing  Is 

1 

4 

SO 

N/A 

Normal  end 

of  processing 

i 

7 

47 

PSL 

Subsequent 

bypassed 

processing  is 

2  1 

8 

48 

PSL 

Discontinue  searching  of 
current  unit;  continue 
processing  next  unit 

2 

i 

A 

Notes: 

(1)  Unable  to  assign  library  section  file.  See  description 
of  nodule  ASFL  for  specific  conditions  which  cause 
"unable  to  assign  file". 

(2)  Unable  to  Initialize  or  read  line  of  unit.  See 
description  of  module  RDUN  for  specific  conditions 
which  cause  "unable  to  read". 
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2. 2. 1.1. 6  General  Functions 

General  functions  are  utilized  to  establish  PSL  parameters 
(PARAM  Function),  vnrite  job  control  cards  (JCL  Function)  and 
perform  job  procedures  (PERFORM  Function).  The  program 
modules  Invoked  by  these  functions  are  described  In  the 
following  paragraphs. 

2. 2. 1.1. 6.1  ESPA  -  Establish  Parameters 

The  ESPA  establishes  the  print  classification  and  the 
project,  library,  section,  password  and  programmer  name 
parameters  that  remain  In  effect  until  changed  by  ensuing  PSL 
Function  keyword  Input  values  that  are  processed  to  the 
Parameter  Table. 


a.  Program  Operations 

HIPO  diagram  1.1. 6.1  depicts  the  program  operations 
of  the  ESPA  module.  The  Keyword  Card  file  Is  read  to  obtain 
the  keyword  and  keyword  values  for  the  PARAM  Function.  If 
any  error  Is  determined,  the  Keyword  Card  file  is  read  until 
another  PARAM  Function  request  is  found  or  the  end  of  the 
input  is  reached  since  erroneous  parameter  table  values  are 
presumed  to  affect  all  following  PSL  Functions  until  corrected 
by  another  PARAM  Function  input. 


b.  Data  File  and  Table  Descriptions 


The  ESPA  module  establishes  values  in  the  following 
table  used  by  all  PSL  Function  modules. 


01 

PARAMETER-TABLE . 

05 

SECTION-REFERENCE . 

10  PROJECT-NAME 

PIC 

X(12). 

10  LIBRARY-SECTION-NAME. 

15  SECTION-CODE 

PIC 

X(l)  . 

15  LIBRARY-NAME 

PIC 

X(7)  . 

05 

PASSWORD 

PIC 

X(12). 

05 

PROGRAMMER-NAME 

PIC 

X (12)  . 

05 

USERID 

PIC 

X (12) . 

The  l 

USERID 

>  value  Is  established  by  the 

BCTL 

module 

ESPA 

module. 

not  by  the 


! 


i 

I 

* 

i 

3 


♦ 


i 
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c.  Branching  and  Error  Condltiona 

The  following  branching  and  error  conditions  apply 
to  HIPO  diagram  1. 1.6.1: 

Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ Note 

1  2  ERR  Continue  to  process  #2 

19  ERR  Continue  to  process  #2 


2. 2. 1.1. 6. 2  WRJB  -  Write  Job  Control  Cards 

The  WRJB  module  writes  user-provided  job  control  cards 
to  the  spawned  job  file. 

a.  Program  Operations 

HIPO  diagram  1.1. 6. 2  depicts  the  program  operations 
of  the  WRJB  module.  Although  no  keyword  input  is  associated 
with  the  JCL  Function,  it  is  technically  required  that  the 
OBKW  module  entry  print  be  called  to  establish  the  LAST-PRIME-KW 
condition  prior  to  calling  the  OBSD  entry  point  for  reading  the 
source  data  (i.e. ,  user-supplied  job  control  card)  inputs.  The 
OBSD  entry  point  in  the  OBKW  module  is  called  to  obtain  any 
source  data  cards  that  may  be  present.  Although  a  test  is 
made  for  an  error  return  from  the  call  to  the  OBKW  entry  point, 
such  an  error  could  only  be  caused  by  a  PSL  system/computer 
malfunction.  The  only  expected  exit  is  that  which  sets  the 
processing  status  to  spawn  a  job  upon  return  to  the  BCTL  module. 

b.  Data  File  and  Table  Descriptions 

No  special  data  file  or  table  descriptions  are 

utilized. 


c.  Branching  and  Error  Conditions 

No  special  branching  or  error  conditions  are  utilized. 


i 

i 


4 

i 

i 

i 

3 
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Diagram  ID:  1.1. 6. 2  Name:  WRJB  -  Write  Job  Control  Cards  Description:  General  Function  (JCL) 


* 


2. 2. 1.1. 6. 3  PFJB  -  Perform  Job  Control  Cards 

A  user-designated  job  procedure  is  retrieved  and  processed 
to  modify  the  job  control  cards  (when  Indicated  by  self-contained 
flagword  specifications)  with  information  derived  from  keyword 
value  Inputs  provided  in  conjunction  with  the  user  of  the  ' 

PERFORM  Function.  The  resultant  job  control  cards  (both  modified  * 

and  unmodified)  are  written  to  the  Spawn-Job  file.  Independent 
data  files  that  are  referenced  through  flagword  and  keyword  value 
specifications  are  created  and/or  modified  as  may  be  required. 

File  accounting  information  is  correspondingly  added  and/or 

updated  in  the  related  PSL  section  storage.  Resultant,  spawned  , 

job  activities  may  subsequently  utilize  the  referenced  data  ! 

files  and  accounting  Information  in  the  performance  of  user  and 
PSL-related  operations. 

a.  Program  Operations 

1.  General  Function  (PERFORM) 

H1P0  diagram  1.1. 6. 3  depicts  the  top  level  pro¬ 
cedure  in  PFJB  program  operations.  The  keyword  value  Inputs  to  i 

the  PERFORM  Function  are  processed  and  provided  that  no  errors  are 
detected  in  that  input,  the  job  procedure  designated  by  the 

PROCEDURE  keyword  input  value  is  retrieved  from  the  Job  section  ; 

of  the  project  library  designated  by  the  PROJECT  and  LIBRARY  * 

keyword  or  parameter-table  Input  values.  Each  Job  card  is  read 

and  examined  for  a  flagword  specification  in  columns  73  through 

80.  If  a  flagword  is  present,  it  is  processed  to  perform  a  job 

control  card  modification  prior  to  writing  the  card  to  the 

Spawn-Job  file,  else  the  job  control  card  is  written,  unmodified, 

to  the  Spawn-Job  file.  If  no  errors  are  detected  through  the 

above  processing,  the  data  output  file  references  are  noted  to 

create/modify  the  referenced  files  with  the  given  (or  default) 

FMS  parameter  values  and  to  establish/update  accounting  informa¬ 
tion  for  each  file  so  referenced.  The  processing  status 

parameter  is  set  to  spawn  a  job  on  normal  exit;  otherwise,  it  is  l 

set  to  indicate  Che  inability  to  complete  processing  due  to  a  } 

previously  noted  error. 

2.  Process  Keyword  Input 

HIP0  diagram  1.1. 6. 3.1  depicts  the  program 
operations  associated  with  processing  the  keyword  value  input 
provided  with  the  PERFORM  Function.  Successive  keyword  names  and 
values  are  obtained  and  each  keyword  name  is  validated  against  a 
keyword  table  for  the  PERFORM  Function.  The  keyword  value  is  then 
validated  in  accordance  with  the  requirements  imposed  for  the 
particular  keyword  input.  When  a  FILE  keyword  (i.e.,  FILE1,  j 
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1 

I 

I 

l 

I 

I 

I 

1 

1 


FILE2,  etc.)  is  input,  the  validation  process  requires 
that  two  (2)  keyword  values  be  input  for  each  individual  FILE 
keyword  name.  These  two  keyword  values  will  be  obtained  in 
two  successive  input  records  (refer  to  OBKWE  program  operation 
in  subsection  2 . 2 . 1 . 2 . 6 . 2 ) .  The  FILE-NBR  parameter  is 
initially  set  to  zero  to  indicate  that  the  FILE  keyword  speci¬ 
fication  is  to  be  validated.  The  FILE  keyword  name  is  further 
checked  for  a  valid  fifth  character  (i.e.,  1  through  9)  to 
which  the  FILE-NBR  parameter  is  set  after  ensuring  that  the 
keyword  value  input  is  not  the  last  keyword  value  (i.e.,  only 
keyword  value)  provided  with  that  FILE  keyword  name.  If  it  is 
not  the  only  value  provided  (i.e.,  there  is  a  second  value 
forthcoming),  it  is  stored  in  INPUT-FILE-NAME  of  the  User  File 
Table  as  an  adjunct  of  the  File  Activity  Table.  The  next 
keyword  value  obtained  will  have  the  same  FILE  keyword  name 
(i.e.,  since  the  previous  keyword  value  was  not  the  last)  and 
that  second  value  must  also  be  the  last  keyword  value  (i.e., 
there  must  be  no  third,  fourth,  etcetera  values  supplied). 

If  this  condition  is  met,  the  second  value  is  checked  for 
an  appropriate  allocation  code  and  stored  in  the  File  Activity 
Table.  When  fewer  or  more  than  two  keyword  input  values  are 
provided,  it  is  noted  as  a  keyword  value  format  error.  A 
final  check  for  required  keyword  input  values  (Process  //8)  is 
made  to  ensure  that  the  minimum  keyword  input  has  been  provided. 

3.  Process  Flagword 

HIPO  diagram  1.1. 6. 3. 2  depicts  the  program 
operations  for  processing  the  flagword  specification  provided 
by  the  user  in  the  given  job  control  card.  The  flagword 
character  string  In  columns  73  through  80  Is  scanned  to  obtain 
the  flagword  name  and  validate  it  against  a  pre-defined 
FLAGWORD-TABLE  listing  the  flagword  names  that  reference  FMS 
files.  If  not  in  that  table  then  the  flagword  must  be  CARDS 
or  else  be  an  error.  The  CARDS  flagword  signifies  that  source 
data  cards  following  the  PERFORM  Function  keyword  cards  are  to 
be  written  to  the  Spawn-Job  file  between  a  @DATA,I  card 
and  a  @END  card.  If  the  flagword  is  found  in  the  table, 
the  flagword  value  is  checked  for  an  appropriate  value.  If 
no  error  is  incurred,  the  PSL  section  referenced  by  the 
flagword  is  checked  to  ensure  that  the  section  has  been 
previously  created  and  that  the  section  password  is  valid,  when 
required.  It  Is  also  determined  whether  or  not  keyword  value 
input  provides  a  file  name  for  the  given  f lagword-section 
reference.  If  not,  a  missing  keyword  error  is  indicated;  other¬ 
wise  the  specific  file  reference  is  verified  and  the  job  control 
card  is  modified  provided  that  no  error  has  been  determined. 
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4. 


Verify  File  Reference 


HIPO  diagram  1.1. 6. 3. 2.1  depicts  the  program 
operations  that  determine  the  status  of  the  referenced  file. 

The  file  name  is  derived  from  the  UNIT  keyword  value  if  the 
processed  flagword  designates  a  PSL  section  name  and  the 
specified  unit  name  is  searched  for  in  the  unit  index  of  that 
section,  i.e.,  the  USE-DIRECTORY-SW  is  set  to  "false"  to 
cause  called  subroutines  to  search  the  unit  index  rather  than 
the  file  directory.  When  a  FILE  flagword  is  processed, 
however,  the  file  name  is  derived  from  the  corresponding  FILE 
keyword  value  and  the  PSL  User  section  file  directory  is 
searched  since  the  USE-DIRECTORY-SW  is  set  to  "true".  If  the 
file  name  is  found,  the  unit  type  is  validated  as  being 
independent.  If  no  error  is  incurred  and  the  access 
code  designated  in  the  flagword  specification  indicates  an 
output  activity,  the  FILE-ACTION-SW  is  set  to  cause  the 
updating  of  the  existing  file  accounting  information  for  that 
particular  file  as  noted  in  the  FILE-ACTIVITY-TABLE.  Retrieval 
is  made  of  the  current  file  accounting  information  to  check 
whether  a  UNIT-KEY  exists  (i.e.,  not  equal  spaces)  and  if  it 
does,  whether  it  matches  the  KEY  keyword  input  value  provided 
with  the  PERFORM  Function.  When  no  current  file  is  found 
corresponding  to  the  requested  file  name,  the  PSL  section 
options  are  validated  to  ensure  that  the  creation  of  independent 
files  is  permitted  for  that  section.  If  e  error  is  incurred 
and  the  access  code  designated  in  the  flagword  specification 
indicates  an  output  activity,  the  FI LE-ACTION-SW  is  set  to 
cause  the  creation  of  the  given  file  as  noted  in  the  FILE- 
ACTIVITY-TABLE.  If  the  referenced  FILE-ACTIVITY-SW  now 
indicates  that  the  file  is  to  be  created,  then  the  current 
reference  to  that  file  is  valid,  otherwise  the  current  reference 
is  a  read-only  action  against  a  file  not  previously  written 
and  therefore  not  previously  created.  A  UNIT-NOT-FOUND  message 
is  given  to  Indicate  an  error. 

5.  Update  File  Account  Information 

HIPO  diagram  1.1. 6. 3. 3  depicts  the  program 
operations  that  create  the  Independent  files  and  update  the  PSL 
accounting  information.  The  FILE-ACTIVITY-TABLE  contains  all 
the  needed  data  to  perform  the  actions  required.  The  FILE- 
ACTIVITY-SW  indicates  when  an  output  action  is  contemplated 
against  a  particular  file  that  necessitates  an  update  of  the 
related  PSL  section  data.  If  the  file  is  to  be  created,  such 
action  is  taken  and  the  file  accounting  information  is  stored 
in  the  section  and  the  file  name  is  added  to  the  section  index 
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or  file  directory  (dependent  on  the  USE-DIRECTORY-SW  criteria 
discussed  in  the  previous  paragraph).  If  the  file  already 
exists,  its  FMS  parameters  are  updated  when  FMS  keyword  input 
values  are  provided,  and  the  accounting  information  is  updated 
to  reflect  the  projected,  spawned  job  action  to  change  the 
Independent  file  contents. 

b.  Data  File  and  Table  Descriptions 

The  following  tables  are  utilized  to  control  Indepenent 
file  creation  and  PSL  accounting  Information  update  activities: 

01  FILE-ACTIVITY-TABLE. 

05  FILLER  PIC  X(114)  VALUE  LOW-VALUES. 

05  FILLER  PIC  X(19)  VALUE  SPACES. 

01  A-FILLER  REDEFINES  FILE-ACTIVITY-TABLE. 

05  FILE-ACTION-SW  OCCURS  19  TIMES. 

PIC  S9  (9)  COMP. 

88  FILE-NOT-USED  VALUE  ZERO. 

88  FILE-EXISTS  VALUE  1. 

88  FILE-TO-BE-CREATED  VALUE  2. 

88  FILE- ACTIVE  VALUES  1,  2. 

05  UNIT-FILE-SECTION-CODE  OCCURS  19  TIMES 

PIC  X. 

01  USER-FILE-TABLE  VALUE  SPACES. 

05  INPUT-FILE-NAME  OCCURS  9  TIMES 

PIC  X  (30 )  . 

The  FILE-ACTIVITY-TABLE  is  initialized  by  VALUE  statements  to 
set  all  FILE-ACTION-SW  values  to  zero,  to  set  user  file  alloca¬ 
tion  codes  to  spaces,  to  set  PSL  section  file  allocation  codes 
to  sequential  (S)  except  for  the  Load  section  which  is  set  to 
random  (R) ,  and  to  set  all  section  codes  to  spaces.  The 
nineteen  (19)  table  entries  correspond  to  the  nine  (9)  user 
files  and  ten  (10)  PSL  sections,  in  that  order.  The  USER-FILE- 
TABLE  is  an  adjunct  to  the  above  table  in  that  INPUT-FILE-NAME 
is  stored  for  the  nine  user  files  corresponding  to  the  first 
nine  entries  in  the  FILE-ACTIVITY-TABLE.  The  following  table 
is  utilized  to  process  flagwords  that  make  reference  to  user 
or  PSL  section  files: 
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1 1 

( 

1 

[  I 
1 1 

1 1 

1 1 


FLAGWORD-VALUES  . 

05  FW-FILE1 

PIC 

X(6) 

VALUE 

"FILEl" . 

05 

FW-FILE2 

PIC 

X  (6) 

VALUE 

"FILE2". 

05 

FV-FILE3 

PIC 

X(6) 

VALUE 

"FILE 3" . 

05 

FW-FILE4 

PIC 

X  (6) 

VALUE 

"FILE4 " . 

05 

FW-FILE5 

PIC 

X  (6  ) 

VALUE 

"FILE 5" . 

05 

FW-FILF  6 

PIC 

X  (6) 

VALUE 

"FILE 6" . 

05 

FW-FILE7 

PIC 

X(6) 

VALUE 

"FILE 7" . 

05 

FW-FILE8 

PIC 

X(6) 

VALUE 

"FILE8" . 

05 

FW-FILE9 

PIC 

X(6) 

VALUE 

"FILE9" . 

05 

FW-SOURCE 

PIC 

X  (6) 

VALUE 

"SOURCE" . 

05 

FW-OBJECT 

PIC 

X(6) 

VALUE 

"OBJECT" . 

05 

FW-PDL 

PIC 

X  (6) 

VALUE 

"PDL" . 

05 

FW-LINK 

PIC 

X  (6) 

VALUE 

"LINK" . 

05 

FW-LOAD 

PIC 

X  (6  ) 

VALUE 

"LOAD". 

05 

FW-JOB 

PIC 

X<6> 

VALUE 

"JOB". 

05 

FW-TEST 

PIC 

X  (6) 

VALUE 

"TEST" . 

05 

FW-TEXT 

PIC 

X(6) 

VALUE 

"TEXT" . 

05 

FW-MGMT 

PIC 

X  (6) 

VALUE 

"MGMT" . 

05 

FW-USER 

PIC 

X  (6 ) 

VALUE 

"USER". 

FLAGWORD-LIST 

REDEFINES  FLAGWORD-VALUES. 

05 

FLAGWORD-TABLE 

OCCURS  19  TIMES 

INDEXED  BY  FT-INDEX 
PIC  X (6) . 

The  order  of  user  sod  PSL  section  file  flagwords  determines  the 
position  of  related  information  in  the  FILE-ACTIVITY-TABLE. 

c.  Branching  and  Error  Conditions 

The  following  branching  and  error  conditions  apply 
to  HIPO  diagram  1.1. 6. 3. 


Function  Condition 
Reference _ Code 


Message 

Category 


Program 

Action _ 

Skip  to  Process  #8 
at  conclusion  of 
process  step 


Skip  to  process  #8 
at  conclusion  of 
process  step 


Skip  to  process  #8 


No  te 
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c . 

Branching  and 

Error  Conditions  (continued) 

Func  t Ion 

Condition 

Message 

Program 

Reference 

Code 

Category 

Action 

Note 

7 

205 

FMS 

Exit  procedure 

10 

8 

7 

ERR 

Error  exit 

16 

ADV 

Normal  exit 

NOTES: 

(1) 

Determined 

in 

Process 

#2 

of 

HIPO  diagram 

1.1. 6. 3.1 

(2) 

Determined 

in 

Process 

#7 

of 

HIP0  diagram 

1.1. 6. 3.1 

C  3 ) 

Determined 

in 

Process 

#8 

of 

HIPO  diagram 

1.1. 6. 3.1 

(4) 

Determined 

in 

Process 

#3 

of 

HIPO  diagram 

1.1. 6. 3.1 

(5) 

Determined 

in 

Process 

#7 

of 

HIPO  diagram 

1.1. 6. 3. 2.1 

(6) 

Determined 

in 

Process 

#3 

of 

HIPO  diagram 

1.1. 6. 3. 2 

(7) 

Determined 

in 

Process 

#10  of 

:  HIPO  diagram  1.1.6. 3. 2 

(8) 

Determined 

in 

Proces  s 

#6 

of 

HIPO  diagram 

1.1. 6. 3. 2 

(9) 

Determined 

in 

Process 

#5 

of 

HIPO  diagram 

1.1. 6. 3. 2.1 

(10) 

Determined 

in 

Process 

#2 

of 

HIPO  diagram 

1.1. 6. 3. 3 

f 


2. 2. 1.2.1  BKSC  -  Backup  Section 

A  PSL  library  section  is  stored  on  a  Backup  Tape  file 
which  is  opened  and  closed  by  the  BCTL  module  at  the  beginning 
and  end  respectively  of  the  PSL  job. 

a.  Program  Operations 

HIPO  diagram  1.2.1  depicts  the  top-level  operations 
of  the  BKSC  module.  Backup  records  are  identified  and  written 
in  a  specific  order  beginning  with  record  type  1  containing 
section  header  Information  and  ending  with  record  type  7 
signifying  end-of-section .  Every  unit  Identified  in  the 
section  index  is  backed-up.  Independent  file  data  requires 
that  the  file  parameters  be  queried  (through  the  Interface 
Routine  QYFLE  shown  in  HIPO  diagram  1.4. 1.6)  for  Information 
which  is  pertinent  to  restoring  the  independent  file.  The 
returned  Information  is  transposed  into  a  format  to  be  used 
as  input  for  recreating  that  file  at  a  later  tine  (as  done 
through  the  Interface  Routine  CRFLE  depicted  in  HIPO  diagram 
1.4. 1.3).  Independent  files  are  dynamically  allocated  and 
deallocated  through  the  Interface  Routines  ALFLE  and  DAFLE 
before  and  after  respectively  opening  and  closing  file  backup 
operations  (refer  to  HIPO  diagrams  1.4. 1.1  and  1.4. 1.4). 

b.  Data  File  and  Table  Descriptions 

Refer  to  the  Restore  Library  (RSLB)  module  described 
under  paragraph  2. 2. 1.1. 1.4  for  details  on  the  Backup  Tape 
File  format. 


c.  Branching  and  Error  Conditions 

The  following  branching  and  error  conditions  are 
significant  to  BKSC  module  operation: 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

No  ti 

3 

51 

Bypass  Process  #'s 

4-10  1 

6 

152 

ERR 

Continue  normally 

2 

12 

7 

ERR 

Error  Exit 

12 

99 

INF 

Normal  Exit 

3 
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BKSC  -  Backup  Section  Descriptions  Support  Routine 


•— —  -it  niin~T~mTiiimrnr-«iT«iii  -  - 

I 

I 

Notes : 

J  (1)  End-of-lndex  condition  terminates  DO  loop 

[(2)  FMS  parameters  set  to  zero  indicating  that  FMS 

default  parameters  are  to  be  used  in  restore 
operation  unless  otherwise  overriden. 

J  (3)  Condition  code  reset  to  zero  before  exiting. 

I 
i 

I 
1 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
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2. 2. 1.2. 2  Unit  Processing 

Unit  processing  support  is  provided  to  process  lower  units 
referenced  by  an  INCLUDE  statement  and  to  delete  PSL  section 
file  units  as  required  or  requested.  The  program  modules  whose 
operations  perform  these  actions  are  described  below. 

2. 2. 1.2. 2.1  PCLU  -  Process  Lower  Units 

The  PCLU  module  is  called  to  update  the  higher  (i.e., 
including)  unit  list  maintained  for  a  lower  (i.e.,  included)  unit 
and  to  add  a  stub  unit  when  no  real  unit  exists  in  the  library 
section  being  processed. 

a.  Program  Operations 

HIPO  diagram  1.2. 2.1  depicts  the  program  operations 
performed  by  the  PCLU  module.  The  first  step  in  processing  lower 
(i.e.,  INCLUDEd)  units  is  to  find  the  lower  unit  name  in  the 
library  section  index.  If  found,  the  existing  lower  unit 
accounting  information  is  updated  provided  that  the  unit  type 
value  in  the  index  entry  indicates  an  included  type  unit  and  the 
unit  is  not  to  be  deleted.  If  the  lower  unit  changes  from  a 
singly  included  to  a  multiply  included  (or  vice  versa)  or  from  a 
real,  non-included  to  a  singly  included  unit  (or  vice  versa),  the 
unit  type  value  is  changed  to  reflect  the  new  status  in  both  the 
index  entry  and  the  unit  accounting  information.  If  the  lower 
unit  is  a  stub  and  is  no  longer  included  (i.e.,  the  current 
include  count  equals  1  and  the  PROCESS— TYPE  input . parameter  value 
indicates  that  a  reference  to  the  lower  unit  is  being  deleted), 
then  the  stub  unit  will  be  deleted  since  it  Is  no  longer  refer¬ 
enced.  In  contrast,  if  the  lower  unit  were  "real"  (i.e.,  was 
previously  ADDed  by  the  PSL  system  user),  it  would  not  be  deleted 
since  the  deletion  of  real  units  is  a  perogative  of  the  PSL  user. 

When  an  existing  lower  unit  initially  becomes  multiply 
included  (i.e.,  transitions  from  singly  included  to  multiply 
included)  a  higher-unit  block  is  built  to  contain  a  list  of  the 
higher  unit  names  in  which  the  lower  unit  is  included.  The 
initial  number  of  such  names  is  two  but  as  more  INCLUDE  statements 
make  reference  to  the  lower  unit,  this  list  is  increased  and 
later,  as  INCLUDE  statements  are  deleted,  the  list  is  diminished. 
Since  this  list  of  higher  unit  names  Is  maintained  in  alphabetic 
sequence,  an  added  higher  unit  reference  must  be  placed  into  the 
list  at  an  appropriate  point.  On  the  other  hand,  deleted  higher 
unit  reference  requires  an  equivalent  entry  in  the  current  list 
be  eliminated.  The  ensuing  operation  involves  the  reading  of 
INPUT-HUB  (i.e.,  current  higher  unit)  entries  and  writing  of 
OUTPUT-HUB  (i.e.,  updated  higher  unit)  entries  to  accomplish  the 
stated  objective.  The  process  is  one  which  requires  precise 
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control  over  the  Input  of  current  higher  unit  blocks  and  the 
assignment  and  output  of  new  higher  unit  blocks.  If  the 
requisite  number  of  a  new  PSL  storage  block  can  be  assigned  to 
complete  the  process  of  re-writing  the  higher  unit  list,  then 
the  PSL  storage  blocks  holding  the  current  (i.e.,  old)  higher 
unit  list  are  released,  otherwise  the  operation  is  terminated 
with  an  error  return  to  the  calling  program  which  most  usually 
responds  by  flagging  the  INCLUDE  statement  being  processed  to 
denote  the  inability  to  complete  lower  unit  processing  on  that 
statement . 

When  a  lower  unit  changes  from  multiply  to  singly 
included,  the  existing  higher-unit  block  Is  released  and  the 
remaining  higher  unit  reference  is  stored  in  the  accounting 
information  area.  The  higher  unit  block  (HUB)  pointer  in 
lower  unit  index  entry  is  made  zero  to  reflect  the  absence  of 
HUB  storage,  otherwise  this  pointer  denotes  the  first  block 
assigned  to  HUB  storage.  The  next-block-pointer  for  that  HUB 
points  to  the  next  HUB  and  so  on  until  a  next-block-pointer 
equal  to  zero  indicates  that  no  further  HUB  storage  is  assigned 
to  that  lower  unit. 

Lastly,  when  a  INCLUDE  statement  makes  reference  to  a 
lower  unit  which  does  not  exist  in  the  given  library  section, 
a  stub  unit  entry  is  added  to  the  unit  index  of  that  section 
and  accounting  data  for  that  stub  unit  is  generated  and  written 
to  an  assigned  storage  block  which  is  referenced  by  the  data- 
block-pointer  value  in  the  index  entry  for  that  lower  unit  stub. 

b.  Data  File  and  Table  Description 

The  PSL-HIGHER-UN IT -BLOCK  description  is  obtained  from 
the  PSL  Copy  Library  (CPYLIB)  and  is  used  to  describe  the  format 
of  INPUT-HUB  and  OUTPUT-HUB  data. 

01  PSL-HIGHER-UN IT -BLOCK . 

05  HUB-BLOCK-NBR 
05  HUB-NEXT-BLOCK-NBR 
05  HUB-NBR-OF-ENTRIES 
05  HUB-HIGHER-UNIT-LIST. 

10  HUB-HIGHER-UNIT  OCCURS  25  TIMES 

PIC  X(30) . 

It  will  be  noted  that  the  maximum  number  of  entries  per  HUB  is 
twenty-five  (25).  The  list  of  higher  unit  names  is  terminated 
by  the  first  blank  entry  in  the  list.  When  the  HUB  is  fully 
utilized  (i.e.,  HUB-NBR-OF-ENTRIES-25 ) ,  the  HUB-NEXT-BLOCK-NBR 
value  is  zero  if  no  more  entries  exist,  else  the  value  is  non¬ 
zero  and  indicates  the  HUB  in  which  the  list  of  higher  unit  names 
is  continued. 
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c.  Branching  and  Error  Conditions 

The  following  branching  and  error  conditions  apply 
to  HIPO  diagram  1.2. 2.1: 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Ac  t ion 

Not< 

1 

26 

ERR 

Exit 

module 

1 

38 

PSL 

Exit 

module 

2 

2,6 

39 

ERR 

3 

40 

ERR 

3 

4 

70 

ADV 

NOTES  : 

(1)  Only  if  PROCESS-TYPE-DELETE  condition  exists. 

(2)  Not  expected  in  normal  PSL  operations. 


(3)  Secondary  error  indication  due  to  a  previous, 
primary  error  indication  received  from  a 
called  module. 
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2. 2. 1.2. 2. 2  • DLUN 


Delete  a  Unit 


The  DLUN  module  is  called  to  release  the  PSL  data  blocks 
and  delete  the  entry  of  a  given  unit  in  a  specified  PSL  section. 

a.  Program  Operations 

H1P0  diagram  1.2. 2. 2  depicts  the  program  operations 
of  the  DLUN  module.  The  first  data  block  of  the  given  unit  is 
read  to  obtain  the  unit  key  from  the  accounting  information  and 
validate  the  input  unit  key  when  required.  If  the  requested 
unit  type  is  independent,  random  or  sequential,  the  existing 
FMS  file  is  purged.  Else  if  the  unit  is  in  PDL  or  SOURCE  section 
storage,  the  unit  data  lines  are  read  and  each  INCLUDE  statement 
is  processed  via  the  PCLU  module  to  eliminate  references  to  the 
deleted  unit  from  the  higher  unit  lists  of  the  lower  (i.e., 
INCLUDEd)  units. 

If  the  unit  to  be  deleted  is  not  Itself  Included  in  a 
higher  unit,  then  all  the  data  block  for  that  unit  are  released 
and  its  entry  is  deleted  from  the  unit  index  if  it  is  an 
independent  type  unit  or  from  the  file  directory  (USE-DIRECTORY- 
SW  =  TRUE)  if  it  is  a  random  or  sequential  type  unit  established 
via  the  PFJB  module  in  the  execution  of  the  PERFORM  function. 
Otherwise,  the  unit  to  be  deleted  is  converted  to  a  stub  unit  by 
releasing  all  assigned  data  blocks  other  than  the  first  and  re¬ 
writing  the  first  data  block  with  initialized  accounting  informa¬ 
tion  (retaining  the  date-originated)  and  changing  the  unit  index 
entry  to  reflect  the  change  of  unit  type. 

b.  Data  File  and  Table  Descriptions 

No  special  data  files  or  tables  are  utilized  in  DLUN 
module  program  operations. 

c.  Branching  and  Error  Conditions 

The  following  branching  and  error  conditions  apply  to 
HIPO  diagram  1.2. 2. 2: 


Func  tion 
Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

Note 

2 

9 

ERR 

5 

55 

ERR 

1 

9 

96 

PSL 

2 
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NOTES : 


(1)  This  error  cannot  occur  since  the  INCLUDE  statement 
has  previously  been  checked;  if  it  had  been  an  error 
it  would  have  been  flagged  with  a  percent  sign  (Z) 
prefix  and  not  now  recognized  as  an  INCLUDE 

(i.e.,  since  it  would  appear  as  ZINCLUDE). 

(2)  This  error  is  not  expected  to  occur  in  normal  PSL 
operations . 


2. 2. 1.2. 3  PRUN  -  Print  a  Unit 


The  PRUN  module  is  used  In  support  of  the  print  source 
data  (SOURCE)  function  to  determine  and  call  the  appropriate 
print  routine  for  the  given  unit  langauge.  The  PRUN  module 
is  also  used  in  support  of  UNIT  MAINTENANCE  processing. 

a.  Program  Operations 


HIPO  diagram  1.2.3  depicts  the  program  operation 
of  the  PRUN  module.  In  step  2,  the  unit's  accounting  infor¬ 
mation  supplies  data  to  the  header  lines.  In  step  3,  the 
LANAGUAGE- ENTRIES  of  the  LANGUAGE-LINK-TABLE  is  searched  to 
determine  the  appropriate  language  dependent  print  routine 
to  call.  If  the  unit  type  is  equal  to  UTYPE-MD -FORMAT  or 
UTYPE-MD-PLAN ,  the  unit  name  is  used  Instead  of  the  UNIT- 
LANGUAGE.  Steps  4  through  9  are  processed  according  to  the 
result  of  the  search  in  step  3,  which  used  the  existing  unit 
language  as  the  object  of  the  search. 


b.  Data  File  and  Table  Descriptions 

•  LANGUAGE-LINK-TABLE. 

-  see  Section  3  for  description  of  "LANGUAGE-LINK-TABLE" . 
e  PRINT-UNIT-OPTIONS. 

-  see  Section  3  for  description  of  "PRINT-UNIT-OPTIONS". 

•  CATALOG-NAME. 

-  use  to  build  FMS— L IB-SEC-NAME  for  independent  units. 

05  FILLER  PIC  X(l)  VALUE  "C". 

05  CAT-LIB-SEC-NAME  PIC  X(8). 


c.  Branching  and  Error  Conditions 
Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ _ _  No  te 

1  47  PSL  Subsequent  processing  1 

bypassed 

4  See  description  of  module  PRNI  for  possible 
conditions . 

5  See  description  of  module  PRCB  for  possible 
conditions. 
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c.  Branching  and  Error  Conditions  (continued) 

Function  Condition  Message  Program 

Reference _ Code _ Category _ Action _ No  te 

6 

7 

8 

9 

10 

NOTE: 


See  description 
conditions . 

of 

module 

PRFT 

for 

possible 

See  description 
conditions . 

of 

module 

PR  JV 

for 

possible 

See  description 
conditions . 

of 

module 

PRNI 

for 

possible 

See  description 
conditions . 

of 

module 

PRNI 

for 

possible 

66 


ERR  Unit  not  printed 

Control  returned  to 
calling  program 


(1)  Unable  to  initialize  read.  See  description  of  RDUN 
for  detailed  list  of  causes  for  this  condition. 
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2. 2. 1.2. 3.1  PRCB  -  Print  COBOL 

The  PRCB  module  prints  structured  COBOL  source  data  in 
an  appropriately  indented  format.  The  indentation  algorithm 
only  applies  to  executable  source  code. 

a.  Program  Operations 

H1P0  diagram  1.2. 3.1  depicts  the  program  operations 
of  the  PRCB  module.  In  step  4,  if  the  end  of  unit  is  detected, 
the  message  "UNIT  HAS  NO  DATA  LINES"  will  be  written  on  the 
unit  listing  by  the  unit  message  line.  If  the  unit  is  a  STUB, 
the  message  "UNIT  IS  STUB"  will  be  written  on  the  unit  listing. 
In  step  5,  the  NBR LINES- OPTION  of  the  PRINT-UNIT-OPTIONS  data 
group  is  interrogated  for  the  maximum  number  of  lines  to  be 
printed  per  page.  In  step  6,  the  preparation  of  the  print  line 
is  determined  generally  by  the  first  word  (WORD)  of  the  source 
line.  If  the  WORD  of  the  source  line  is  contained  in  the 
WORD-TABLE,  it  has  an  associated  WORD-TYPE  and  WORD-NBR.  Since 
COBOL  is  not  a  free  formatted  language,  certain  areas  (MARGINS) 
of  the  data  line  are  not  Inspected  for  executable  code.  If  the 
CHECK-SP-SW  switch  of  the  SECTION-OPTIONS  is  on,  each  unit  line 
will  be  checked  for  adherence  to  structured  programming 
principles.  Also  in  step  6,  the  WORD-TYPE  and  WORD-NBR  are 
used  to  dictate  indentation  and  direct  structure  verb  process¬ 
ing  (structure,  nesting  and  stacking).  In  step  7,  the  unit 
line  is  written  to  the  UNIT-LISTING-FILE  according  to  the 
calculated  indentation.  Print  line  overflow  processing  is 
activated  if  printing  extends  beyond  column  100  on  the  listing 
line.  In  step  10,  the  INCLUDING-UNIT-LIST-PTR  of  the  INDEX- 
ENTRY  issued  to  point  to  the  PSL -HIGHER-UNIT -BLOCK ,  which 
stores  the  unit  names,  in  which  the  unit  being  printed  is 
included.  In  step  11,  if  a  structure  error  has  been  detected, 
then  all  the  error  flags  relating  to  structuring  and  section 
options  are  added  together. 

b.  Data  File  and  Table  Descriptions 
•  UN IT -LISTING -FILE 

T^e  UNIT-LISTING-FILE  is  the  formatted  output 
for  the  listing  of  the  COBOL  unit  being  printed.  See  Section 
3  description  of  data  group  UNIT-LISTING-RECORD. 

77  WORD-TYPE  PIC  $9(9)  COMP. 

-  assigned  vslue  representing  the  function  of  the 
associated  word. 
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88 

WORD-NOT- IN -TABLE 

VALUE 

1 . 

88 

WORD -IS -STRUCTURE 

VALUE 

2  . 

88 

WORD -IS -CONDITIONAL 

VALUE 

3. 

88 

WORD -IS -VERB 

VALUE 

4. 

88 

WORD- IS -NOISE— WORD 

VALUE 

5  . 

88 

WORD -IS -INCLUDE 

VALUE 

6  . 

01  ADJUSTMENT-VALUES. 

-  number  of  print  columns  specified  for  indentation 
baaed  on  structure  word  or  condition. 


05 

ADJ-FOR-IF-CODE 

PIC 

S9  (9) 

COMP 

VALUE 

4. 

05 

ADJ-FOR-CASE-CODE 

PIC 

S9  (9) 

COMP 

VALUE 

8. 

05 

ADJ-FOR-NEW-CASE 

PIC 

S9  (9) 

COMP 

VALUE 

4. 

05 

ADJ-FOR-DO-CODE 

PIC 

S9  (9  ) 

COMP 

VALUE 

4  . 

05 

ADJ-FOR-COND IT ION-CODE 

PIC 

S9  (9) 

COMP 

VALUE 

8. 

05 

AD J-FOR-CONDITION-WORD 

PIC 

S9  (9) 

COMP 

VALUE 

4. 

05 

AD J-FOR— CONT INUATION 

PIC 

S9(9) 

COMP 

VALUE 

12 

05 

ADJ-FOR-OVERFLOW 

PIC 

S9  (9 ) 

COMP 

VALUE 

60 

FIGURE-STACK. 

-  records  the  nesting  of  structure  figures  and  also  used 
to  check,  syntax  of  structured  figures. 

05  FILLER  OCCURS  50  TIMES. 

10  FIGURE-IN-STACK  PIC  XX. 

88  FIGURE -IN -STACK- IS -DO 

VALUE  "DO". 

88  FIGURE- IN-STACK- IS -IF 

VALUE  "IF". 

10  ELSE-PREVIOUSLY-FOUND-SW 

PIC  S9  (9)  COMP. 

88  ELSE-PREVIOUSLY-FOUND  VALUE  1. 

01  LINE-OF-DATA. 

-  represents  standard  format  for  COBOL  statements  input. 


05 

LINE-COLS-1-7 

PIC 

X (7 )  . 

05 

AREA-A-B. 

10  AREA-A 

PIC 

X  (4 )  . 

10  AREA-B 

PIC 

X  (61) 

05 

FILLER  REDEFINES  AREA-A-B. 

10  LINE -COLS -8 -16 

PIC 

X(9>. 

88  AREA-A-WORD-IS-ON 

VALUES  ". 

.ON 


It 


II 


01 


88  AREA-A-WORD-IS-OFF 


10  FILLER 

05  IDENTIFICATION-AREA 
FILLER  REDEFINES  LINE-OF-DATA . 
05  LINE-CHAR 


VALUES 


■  OFF  " 
.OFF  " 
.OFF  " 
.OFF" , 


PIC  X (56) 
PIC  X(8) . 


88 

88 

88 

88 

88 

88 


OCCURS  80  TIMES 
PIC  X. 

LINE-CHAR- IS -BLANK  VALUE  SPACE. 

LINE-CHAR-IS-BLANK-OR-PUNCTUAT 

VALUES  SPACE 

LINE -CHAR- IS -PERIOD  VALUE  " . "  . 

LINE-CHAR- IS -QUOTE  VALUE  QUOTE. 

CONT-FIELD-USED  VALUES 

LINE-CHAR- IS -PAG E-EJECT 

VALUE 


01  WORD-TABLE. 


-  Cable  scores  all  words  considered  in  the  indentation 
of  structured  CODE.  Each  word  is  classified  and 
assigned  representative  numbers. 


05 

FILLER 

PIC 

X(12)  VALUE 

« 

It 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"ACCEPT 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"ADD 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X(12)  VALUE 

"ALTER 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"AT 

II 

05 

FILLER 

PIC 

9  VALUE  5. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X(12)  VALUE 

"CALL 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  ( 1 2 )  VALUE 

"CANCEL 

t» 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE1. 

05 

FILLER 

PIC 

X  ( 12 )  VALUE 

"CASE 

II 

05 

FILLER 

PIC 

9  VALUE  2. 

05 

FILLER 

PIC 

9  VALUE  5. 
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05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

filler 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

05 

FILLER 

PIC 

X (12 )  VALUE 

"CASENTRY 

PIC 

9  VALUE  2. 

PIC 

9  VALUE  4. 

PIC 

X(12)  VALUE 

"CLOSE 

PIC 

9  VALUE  4. 

PIC 

9  VALUE  1. 

PIC 

X (12 )  VALUE 

"COMPUTE 

PIC 

9  VALUE  4. 

PIC 

9  VALUE  1. 

PIC 

X ( 12 )  VALUE 

"COPY 

PIC 

9  VALUE  6. 

PIC 

9  VALUE  1. 

PIC 

X  (12 )  VALUE 

"DATA 

PIC 

9  VALUE  5. 

PIC 

9  VALUE  1. 

PIC 

X  ( 12 )  VALUE 

"DELETE 

PIC 

9  VALUE  4. 

PIC 

9  VALUE  1. 

PIC 

X (12 )  VALUE 

"DISABLE 

PIC 

9  VALUE  4. 

FIC 

9  VALUE  1. 

PIC 

X  (12 )  VALUE 

"DIVIDE 

PIC 

9  VALUE  4. 

PIC 

9  VALUE  1. 

PIC 

X  (12 )  VALUE 

"DO 

PIC 

9  VALUE  2. 

PIC 

9  VALUE  8. 

PIC 

X  (12 )  VALUE 

"ELSE 

PIC 

9  VALUE  2. 

PIC 

9  VALUE  2. 

PIC 

X  ( 12 )  VALUE 

"ELSECASE 

PIC 

9  VALUE  2. 

PIC 

9  VALUE  6. 

PIC 

X(12)  VALUE 

"ENABLE 

PIC 

9  VALUE  4. 

PIC 

9  VALUE  1. 

PIC 

X  (12 )  VALUE 

"END 

PIC 

9  VALUE  3. 

PIC 

9  VALUE  1. 

PIC 

X  (12 )  VALUE 

"ENDCASE 

PIC 

9  VALUE  2. 

PIC 

9  VALUE  7. 

PIC 

X (12 )  VALUE 

"ENDDO 

PIC 

9  VALUE  2. 

PIC 

9  VALUE  9. 

PIC 

X (12)  VALUE 

"ENDIF 

PIC 

9  VALUE  2. 

PIC 

9  VALUE  3. 
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05 

FILLER 

PIC 

X  (12)  VALUE 

"END-OF-PAGE 

II 

05 

FILLER 

PIC 

9  VALUE  3. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"ENTER 

I# 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"EOP 

M 

05 

FILLER 

PIC 

9  VALUE  3. 

05 

FILLER 

PIC 

9  VALUE  1 . 

05 

FILLER 

PIC 

X  ( 12 )  VALUE 

"ERROR 

II 

05 

FILLER 

PIC 

9  VALUE  5. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  ( 1 2 )  VALUE 

"EXAMINE 

M 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X (12)  VALUE 

"EXIT 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X (12)  VALUE 

"GENERATE 

It 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"GO 

It 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  ( 12 )  VALUE 

"IF 

II 

05 

FILLER 

PIC 

9  VALUE  2. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"INCLUDE 

II 

« 

05 

FILLER 

PIC 

9  VALUE  6. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (1 2 )  VALUE 

"INITIATE 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"INSPECT 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"INVALID 

II 

05 

FILLER 

PIC 

9  VALUE  3. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"MERGE 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"MOVE 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"MULTIPLY 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

2-230 


05 

FILLER 

PIC 

X (12)  VALUE 

"NO 

05 

FILLER 

PIC 

9  VALUE  5. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X ( 12 )  VALUE 

"NOTE 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"ON 

05 

FILLER 

PIC 

9  VALUE  5. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X (12 )  VALUE 

"OPEN 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X (12)  VALUE 

"OVERFLOW 

05 

FILLER 

PIC 

9  VALUE  3. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X (12 )  VALUE 

"PERFORM 

05 

FILLER 

PIC 

9  VALUE  4 . 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X(12)  VALUE 

"READ 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  ( 12 )  VALUE 

"RECEIVE 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

filler 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X ( 12 )  VALUE 

"RELEASE 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (  1 2 )  VALUE 

"RETURN 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (  12 )  VALUE 

"REWRITE 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"SEARCH 

05 

filler 

PIC 

9  VALUE  4. 

05 

filler 

PIC 

9  VALUE  1. 

05 

filler 

PIC 

X  (12 )  VALUE 

"SEEK 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"SEND 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  ( 1 2 )  VALUE 

"SET 

05 

filler 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  ( 1 2 )  VALUE 

"SIZE 

05 

FILLER 

PIC 

9  VALUE  5. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

filler 

PIC 

X  ( 1 2 )  VALUE 

"SORT 

05 

filler 

PIC 

9  VALUE  4. 

05 

filler 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"START 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (  12 )  VALUE 

"STOP 

It 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X (12)  VALUE 

"STRING 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (  12 )  VALUE 

"SUBTRACT 

It 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (  1 2 )  VALUE 

"SUPPRESS 

II 

05 

FILLER 

PIC 

9  VALUE  4 . 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (  12 )  VALUE 

"TERMINATE 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"THEN 

II 

05 

FILLER 

PIC 

9  VALUE  5. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"UNSTRING 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  (1 2 )  VALUE 

"USE 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  ( 1 2 )  VALUE 

"WHEN 

It 

05 

FILLER 

PIC 

9  VALUE  3. 

05 

FILLER 

PIC 

9  VALUE  1 . 

05 

FILLER 

PIC 

X  (12)  VALUE 

"WRITE 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

X  ( 12 )  VALUE 

"%  INCLUDE 

II 

05 

FILLER 

PIC 

9  VALUE  6. 

05 

FILLER 

PIC 

9  VALUE  1. 

01  FILLER  REDEFINES  WORD-TABLE , 
05  WORD-TABLE-ENTRIES 


10  WORD-IN-TABLE 
10  WORD-TYPE-IN-TABLE 
10  WORD -NBR- IN-TABLE 
*TH I S  REDEFINITION  ASSUMES  THAT  A 
*  WILL  BE  LOADED  BEFORE  EACH  CALL 

01  PSL-HIGHER-UNIT-BLOCK  REDEFINES  WORD-TABLE 
COPY  PSL-HIGHER-UNIT-BLOCK. 


OCCURS  70  TIMES 
ASCENDING  KEY  IS 
INDEXED  BY  WORD- 
PIC  X (12)  . 

PIC  9  . 

PIC  9  . 

FRESH  COPY  OF  THE  MODULE 


WORD-IN-TABLE 

INDEX. 
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c.  Branching  and  Error  Conditions 


F unc  t ion 

Cond it  ion 

Message 

Program 

Reference 

Code 

Category 

No 

2.8 

48 

PSL 

Subsequent 

bypassed 

processing 

10 

33 

PSL 

Subsequent 

bypassed 

processing 

NOTES  : 

(1)  Unable  to  read  line.  See  description  of  RDUN  for 
detailed  list  of  causes  for  this  condition. 

(2)  Unable  to  read  block.  See  description  of  RDBK  for 
detailed  list  of  causes  for  this  condition. 
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2. 2. 1.2. 3. 2  PRFT 


Print  FORTRAN 


The  PRFT  module  prints  structured  FORTRAN  source  data 
in  an  appropriately  indented  format. 

a.  Program  Operations 

HIPO  diagrams  1.2. 3. 2  and  1.2. 3. 2.1  depict  the 
program  operations  of  the  PRFT  module.  In  step  2,  if  the 
end  of  the  unit  is  detected,  the  message  "UNIT  HAS  NO  DATA 
LINES"  will  be  written  on  the  unit  listing.  If  the  unit  is 
a  STUB,  the  message  "UNIT  IS  STUB"  will  be  written  on  the 
unit  listing.  In  step  3,  the  preparation  of  the  print  line 
is  determined  generally  by  the  scanning  of  FORTRAN  statements. 
Since  FORTRAN  is  a  free  format  language  with  many  delimiters, 
each  unit  line  is  edited  before  indentation  processing  takes 
place.  If  first  word  of  the  edited  FORTRAN  statement  is 
contained  in  the  WORD-TABLE-ENTRIES  of  the  FORTRAN-WORD-TABLE, 
it  has  an  associated  PROCESSING-GROUP  and  PROCESSING-GROUP-NBR . 
The  PROCESSING-GROUP  and  PROCESSING-GROUP-NBR  are  used  to 
dictate  indentation  and  direct  structure  verb  processing 
(structure,  nesting  and  stacking).  The  unit  line  is  written 
to  the  UNIT-LISTING-FILE  according  to  the  calculated  indenta¬ 
tion.  Print  line  overflow  processing  is  activated,  if  printing 
extends  beyond  column  100  on  the  listing  line.  In  step  4,  the 
INCLUDING-UNIT-LIST-PTR  of  the  INDEX-ENTRY  is  used  to  point  to 
the  PSL-HIGHER-UN IT— BLOCK ,  which  stores  the  including  unit 
names  of  the  unit  being  printed.  In  step  5,  if  a  structure 
error  has  been  detected,  then  all  the  error  flags  relating  to 
structuring  and  section  options  are  added  together. 

b.  Data  File  and  Table  Descriptions 
•  UNIT-LISTING-FILE 

The  UNIT-LISTING-FILE  is  the  formatted  output 
for  the  listing  of  the  FORTRAN  unit  being  printed.  See  Section 
3  description  of  data  group  UNIT-LISTING-RECORD. 

01  ADJUSTMENTS-TO-COLUMN . 


-  number  of  print  columns  specified  for  indentation 
based  on  structure  words  or  conditions. 


05 

ADJ-FOR-BLOCK 

PIC 

S9  (9) 

COMP 

VALUE 

4. 

05 

ADJ-FOR-CASE 

PIC 

S9  (9 ) 

COMP 

VALUE 

8. 

05 

ADJ-TO-CENTER-OF-PAGE 

PIC 

S9  (9) 

COMP 

VALUE 

50. 

05 

AD J-F0R-C0NTINUATI0N 

PIC 

S9  (9) 

COMP 

VALUE 

12. 

05 

ADJ-FOR-DO 

PIC 

S9C9) 

COMP 

VALUE 

4. 

05 

AD J-FOR- IF 

PIC 

S9  (9) 

COMP 

VALUE 

4. 
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05 

ADJ-TO-LEFT-MARGIN 

PIC 

S9(9) 

COMP 

VALUE 

7. 

05 

ADJ -FOR -LINE -OVER FLOW 

PIC 

S9  (9) 

COMP 

VALUE 

60. 

05 

ADJ-FOR-NEWCASE 

PIC 

S9  (9) 

COMP 

VALUE 

4. 

05 

ADJ-FOR-UNSTRUC-DO 

PIC 

S9  (9) 

COMP 

VALUE 

4. 

01  COMPRESSED-STATEMENT. 

-  stores  edited  FORTRAN  statements  to  be  processed. 

05  COMP-STATEMENT-CHAR  PIC  X 

OCCURS  1320  TIMES. 

01  FILLER  REDEFINES  COMPRESSED-STATEMENT. 

05  COMP-STATEMENT-1-11  PIC  X(ll). 

05  FILLER  PIC  X  (1309) . 


01  CURRENT-WORD. 

-  word  corresponding  to  the  first  word  of  the  compress 
statement;  use  for  classification  by  search  of 
FORTRAN-WORD-TABLE. 


01 


05  CURRENT-WORD-CHAR  PIC  X 

OCCURS  14  TIMES. 


FILLER  REDEFINES  CURRENT-WORD 
05  CURRENT-WORD-1-6. 

88  WORD -IS -AS SIGN 
10  CURRENT-WORD-1-4. 

88  WORD- IS -GOTO 
88  WORD-IS-THEN 
15  CURRENT-WORD-1-2 
88  WORD-IS-DO 
15  FILLER 
10  FILLER 
05  FILLER 


VALUE  "ASSIGN 

VALUE  "GOTO". 
VALUE  "THEN". 
PIC  X  (2 ) . 
VALUE  "DO". 
PIC  X (2 )  . 

PIC  X  (2)  . 

PIC  X  (8 )  . 


II 


01  FIGURE-STACK. 


-  records  the  nesting  of  structure  figures;  used  to 
check  syntax  of  structure  figures. 


05 


FILLER  OCCURS  50  TIMES 

10  FIGURE-IN-STACK  PIC  9. 

88  FIGURE-IN-STACK-IS-IF 
88  F IGURE- IN-STACK-IS-DO 
88  FTGURE-IN-STACK-I S-CASE 
88  FIGURE-IN-STACK-IS-BLOCK 
88  FIGURE-IN-STACK-IS-UNSTRUC-DO 
10  FIGURE-ELSE-FOUND-SW  PIC  9. 

88  FIGURE-ELSE-FOUND  VALUE  1. 

10  FIGURE-LABEL  PIC  X(5). 


VALUE  1. 
VALUE  2. 
VALUE  3. 
VALUE  4. 
VALUE  5. 
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FORTRAN-WORD-TABLE 


-  table  stores  all  words  considered  In  the  indentation 
of  structured  code.  Each  word  is  classified  and 
assigned  representative  numbers. 

05  LENGTH-OF-WORD-TABLE  PIC  S9(9)  COMP  VALUE  55. 

05  WORD-TABLE-VALUES. 


10 

FILLER 

PIC 

X(ll)  VALUE 

"DOUBLEPRECI 

II 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"EQUIVALENCE 

i  II 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"SUBROUTINE 

II 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"BACKSPACE 

II 

• 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"BLOCKDATA 

II 

• 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"CHARACTER 

II 

• 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"DIMENSION 

It 

* 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"PARAMETER 

II 

• 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  4. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"ABNORMAL 

II 

• 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"CASEELSE 

II 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

FILLER 

PIC 

9  VALUE  3. 

10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 


10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 


PIC  X (II)  VALUE  "CASENTRY 
PIC  9  VALUE  3. 

PIC  9  VALUE  1. 

PIC  9  VALUE  1. 

PIC  X  (11 )  VALUE  "CONTINUE 
PIC  9  VALUE  7. 

PIC  9  VALUE  1. 

PIC  9  VALUE  3. 

PIC  X(ll)  VALUE  "ELSECASE 
PIC  9  VALUE  3. 

PIC  9  VALUE  3. 

PIC  9  VALUE  3. 

PIC  X(ll)  VALUE  "ENDBLOCK 
PIC  9  VALUE  4. 

PIC  9  VALUE  2. 

PIC  9  VALUE  3. 

PIC  X  (11)  VALUE  "ENDUNTIL 
PIC  9  VALUE  2. 

PIC  9  VALUE  2. 

PIC  9  VALUE  3. 

PIC  X(ll)  VALUE  "ENDWHILE 
PIC  9  VALUE  2. 

PIC  9  VALUE  2. 

PIC  9  VALUE  3. 

PIC  X(1I)  VALUE  "EXTERNAL 
PIC  9  VALUE  6. 

PIC  9  VALUE  1. 

PIC  9  VALUE  2. 

PIC  X  ( 1 1 )  VALUE  "FUNCTION 
PIC  9  VALUE  6. 

PIC  9  VALUE  1. 

PIC  9  VALUE  2. 

PIC  X  (11)  VALUE  "IMPLICIT 
PIC  9  VALUE  6. 

PIC  9  VALUE  1. 

PIC  9  VALUE  2. 

PIC  X  (11 )  VALUE  "NAMELIST 
PIC  9  VALUE  6. 

PIC  9  VALUE  1. 

PIC  9  VALUE  2. 

PIC  X  (11)  VALUE  "COMPLEX 
PIC  9  VALUE  6. 

PIC  9  VALUE  1. 

PIC  9  VALUE  2. 

PIC  X  ( 11 )  VALUE  "DOUNTIL 
PIC  9  VALUE  2. 

PIC  9  VALUE  1. 

PIC  9  VALUE  1. 


10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 
10  FILLER 


PIC  X(ll)  VALUE  "DOWHILE 
PIC  9  VALUE  2. 

PIC  9  VALUE  1. 

PIC  9  VALUE  1. 

PIC  X(ll)  VALUE  "ENDCASE 
PIC  9  VALUE  3. 

PIC  9  VALUE  4. 

PIC  9  VALUE  3. 

PIC  X(ll)  VALUE  "ENDFILE 
PIC  9  VALUE  7. 

PIC  9  VALUE  1. 

PIC  9  VALUE  2. 

PIC  X  (11)  VALUE  "INTEGER 
PIC  9  VALUE  6. 

PIC  9  VALUE  1. 

PIC  9  VALUE  2. 

PIC  X(ll)  VALUE  "LOGICAL 
PIC  9  VALUE  6. 

PIC  9  VALUE  1. 

PIC  9  VALUE  2. 


PIC 

x(ll)  VALUE 

"ASSIGN 

PIC 

9  VALUE  7. 

PIC 

9  VALUE  1. 

PIC 

9  VALUE  2. 

PIC 

X(ll)  VALUE 

"CASEOF 

PIC 

9  VALUE  3. 

PIC 

9  VALUE  1. 

PIC 

9  VALUE  1. 

PIC 

X(ll)  VALUE 

"COMMON 

PIC 

9  VALUE  6. 

PIC 

9  VALUE  1. 

PIC 

9  VALUE  2. 

PIC 

X(ll)  VALUE 

"DECODE 

PIC 

9  VALUE  7. 

PIC 

9  VALUE  1. 

PIC 

9  VALUE  2. 

PIC 

X(ll)  VALUE 

"ENCODE 

PIC 

9  VALUE  7. 

PIC 

9  VALUE  1. 

PIC 

9  VALUE  2. 

PIC 

X(ll)  VALUE 

"FORMAT 

PIC 

9  VALUE  6. 

PIC 

9  VALUE  1. 

PIC 

9  VALUE  2. 

PIC 

X(ll)  VALUE 

"INVOKE 

PIC 

9  VALUE  7. 

PIC 

9  VALUE  1. 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PLC 

9  VALUE  1. 

10 

FLLLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  4. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

CASE-WORD 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

X(ll)  VALUE 

10 

FILLER 

PIC 

9  VALUE  6. 

"RETURN 


'REWIND 


"BLOCK 


"ENDDO 


'ENDIF 


"ENTRY 


"PAUSE 


"PRINT 


"PUNCH 


"WRITE 


"CALL 


"CASE 


'DATA 
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10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"ELSE 

f« 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"GOTO 

If 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"READ 

If 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

FIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"REAL 

It 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"STOP 

II 

10 

FILLER 

PIC 

9  VALUE  7. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  2. 

10 

FILLER 

PIC 

X(ll)  VALUE 

"END 

If 

• 

10 

FILLER 

PIC 

9  VALUE  8. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  3. 

10 

DO-WORD 

PIC 

X(ll)  VALUE 

"DO 

II 

• 

10 

FILLER 

PIC 

9  VALUE  5. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  6. 

10 

IF— WORD 

PIC 

X(ll)  VALUE 

"IF 

II 

• 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  1. 

10 

FILLER 

PIC 

9  VALUE  5. 

05  FILLER  REDEFINES  WORD-TABLE-VALUES. 

10  WORD-TABLE-ENTRIES  OCCURS  55  TIMES 

INDEXED  BY  WT-INDEX. 

15  WT-WORD. 

20  WT-WORD-CHAR  PIC  X 

OCCURS  11  TIMES 
INDEXED  BY  WTW-INDEX. 
15  WT-PROC-GROUP  PIC  9. 

15  WT-PROC-GROUP-NBR  PIC  9. 

15  WT-VERIF-TEST  PIC  9. 
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T 


c.  Branching  and  Error  Conditions 

Function  Condition  Message  Prograa 

Reference  Code _ Category _ Action 


Note 


NOTES : 


Subsequent  processing  1 

bypassed 

Subsequent  processing  2 

bypassed 


(1)  Unable  to  read  line.  See  description  of  RDUN  for 
detailed  list  of  causes  for  this  condition. 

(2)  Unable  to  read  block.  See  description  of  RDBK  for 
detailed  list  of  causes  for  this  condition. 
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2. 2. 1.2. 3. 3  PRNI 


Print  with  No  Indentation 


The  PRNI  module  prints  data  with  no  automatic  indentation. 
In  general,  unstructured  data  (or  management  data  outputs  for 
which  no  special  print  routine  is  implemented)  are  printed 
without  changing  the  existing  indentation. 

a.  Program  Operations 

HIPO  diagram  1.2. 3. 3  depicts  the  program  operations 
of  the  PRNI  module.  In  step  4,  if  the  end  of  unit  is  detected, 
the  message  "UNIT  HAS  NO  DATA  LINES"  will  be  written  on  the 
unit  listing  by  the  unit  message  line.  If  the  unit  is  a  STUB 
the  message  "UNIT  IS  STUB"  will  be  written  on  the  unit  listing. 
In  step  5,  the  NBRLINES-OPTION  of  the  PRINT-UNIT-OPTIONS  data 
group  is  interrogated  for  the  maximum  number  of  lines  to  be 
printed  per  page.  In  step  8,  the  INCLUDING-UNIT-LIST-PTR  of 
the  INDEX-ENTRY  is  used  to  point  to  the  PSL-HIGHER-UNIT-BLOCK, 
which  stores  the  unit  names,  in  which  the  unit  being  printed 
is  included. 

b.  Data  File  and  Table  Description 

All  significant  data  descriptions  are  described  in 
Section  3  of  this  manual. 


c.  Branching  and  Error  Conditions 


Func  t  ion 
Ref  er ence 

Condition 

Code 

Message 

Category 

Program 

Action 

Note 

2,7 

48 

PSL 

Subsequent 
by  pa  is  ed 

processing 

1 

8 

33 

PSL 

Subsequent 

bypassed 

processing 

2 

NOTES  : 

(1)  Unable  to  read  line.  See  description  of  RDUN  for 
detailed  list  of  causes  for  this  condition. 

(2)  Unable  to  read  block.  See  description  of  RDBK  for 
detailed  list  of  causes  for  this  condition. 
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2. 2. 1.2. 3. 4 


PRJV  Print-JOVIAL 


The  PRJV  module  prints  structured  JOVIAL  source  data 
in  an  appropriately  indented  format. 

a.  Program  Operations 

RIPO  diagram  1.2. 3.4  depicts  the  program  operations 
of  the  PRJV  module.  In  Step  4,  the  unit  message  states 
whether  the  unit  being  printed  is  a  stub  unit  or  the  unit 
has  no  lines  of  data.  In  Step  6,  the  first  word  (string  of 
non-blank  characters)  is  used  to  key  the  indentation  process. 

The  WORD-TABLE  is  searched  for  the  presence  of  the  first 
word.  The  presence  or  absence  of  the  word  in  the  WORD-TABLE 
plus  the  associated  WORD-TYPE  will  determine  the  indentation 
format.  If  the  WORD-TYPE  indicates  a  structure  verb,  then 
its  presences  is  recorded  in  the  FIGURE-STACK.  In  the  case 
of  indentation,  structure  verbs  and  continuation  lines  will 
effect  the  indentation  of  the  next  unit  line,  as  well  as, 
the  current  unit  line.  Also  in  Step  6,  if  any  structure  verb 
being  recorded  in  the  FIGURE-STACK  causes  an  inconsistent 
entry  to  be  attempted,  an  error  message  will  be  generated  on 
the  unit  listing.  If  the  unit  being  printed  resides  in  the 
PD L  or  SOURCE  sections  and  the  SPCHECK  option  has  been 
specified,  then  the  unit  data  line  will  be  checked  for  adherence 
to  structured  programming  principles.  In  Step  7,  if  indentation 
would  cause  a  unit  line  to  be  print  beyond  print  column  100 
on  the  unit  listing,  then  the  unit  line  is  left  justified 
beginning  at  print  column  40.  In  Step  9,  an  error  message  will 
be  generated  on  the  unit  listing  for  every  unresolved  entry  in 
the  FIGURE-STACK. 

b.  Data  File  and  Table  Description 
1.  UNIT-LISTING  FILE 

The  UNIT-LISTING  file  is  used  to  format  the 
listing  of  the  contents  of  the  stored  PSL  units.  The  format 
of  the  UNIT-LISTING  is  described  in  Section  3. 

01  WORD-TYPE  PIC  S9(9)  COMP. 

The  WORD-TYPE  is  assigned  to  each  word  In  the 
WORD-TABLE.  If  a  word  being  compared  to  the  WORD-TABLE  is 
not  located,  a  value  of  "1"  is  assigned  to  the  WORD-TYPE. 

The  WORD-TYPE  is  use  to  direct  processing  of  unit-line.  The 
other  values  WORD-TYPE  might  take  are: 

2  -  structure-verb 

3  -  conditional  word 
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I 

I 

I 
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4  -  verb 

5  -  noise-word 

6  -  include 

7  -  data  declaration 

8  -  label 

•  01  ADJUSTMENT-VALUES. 

The  ADJUSTMENT-VALUES  indicate  the  indentation  of  the 
unit  date  line  after  the  appropriate  word  has  been  detected. 


05 

ADJ-F0R-LABEL 

PIC 

S9  (9) 

COMP 

VALUE 

4  . 

05 

ADJ-F0R-DATA 

PIC 

S9  (9) 

COMP 

VALUE 

4. 

05 

ADJ-F0R-IF-C0DE 

PIC 

S9  (9) 

COMP 

VALUE 

4. 

05 

ADJ-F0R-CASE-C0DE 

PIC 

S9  (9) 

COMP 

VALUE 

8. 

05 

ADJ-FOR-NEW-CASE 

PIC 

S9  (9) 

COMP 

VALUE 

4  . 

05 

ADJ-F0R-D0-C0DE 

PIC 

S9  (9) 

COMP 

VALUE 

4  . 

05 

ADJ— FOR— CONDITION-CODE 

PIC 

S9  (9) 

COMP 

VALUE 

8  . 

05 

AD J-FOR-CONDITION— WORD 

PIC 

S9  (9) 

COMP 

VALUE 

4  . 

05 

AD J— FOR— CONTINUATION 

PIC 

S9  (9) 

COMP 

VALUE 

12 

05 

ADJ-FOR-OVERFLOW 

PIC 

S9  (9) 

COMP 

VALUE 

60 

•  01  FIGURE-STACK. 

The  FIGURE-STACK  is  use  to  record  the  nesting  of  structure 
figures  within  the  unit  being  printed 


05  FILLER 


OCCURS 


50  TIMES 


[ 

l 

I 

f 

f 

[ 

f 

r 


10  FIGURE-W-STACK  PIC  X(3) 

10  ELSE-PREV I0US  LY— FOUND  — SW  PIC  S9(9)  COMP. 

•  01  WORD-TABLE. 

The  WORD-TABLE  Is  a  fixed  value,  PSL  defined,  table  of 
reserve  words  for  the  JOVIAL  language,  used  to  classify  the 
first  word  of  each  unit  data  line  for  further  processing. 


WORD 

-TABLE. 

05 

FILLER 

PIC 

X  ( 12 )  VALUE" 

If 

05 

FILLER 

PIC 

9  VALUE  1. 

05 

FILLER 

PIC 

99  VALUE  1. 

05 

FILLER 

PIC 

X  (1 2 )  VALUE  "ADD 

It 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X  (  1 2 )  VALUE  "ARRAY 

II 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17. 
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05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 
05  FILLER 


PIC 

X ( 12 )  VALUE 

"ASSIGN 

PIC 

9  VALUE  4. 

PIC 

99  VALUE  19 

• 

PIC 

X (12)  VALUE 

"BEGIN 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  15 

PIC 

X  ( 1 2 )  VALUE 

"CASE 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  5. 

PIC 

X ( 12 )  VALUE 

"CASENTRY 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  4. 

PIC 

X (12)  VALUE 

"CLOSE 

PIC 

9  VALUE  8. 

PIC 

99  VALUE  18 

PIC 

X  ( 12 )  VALUE 

"COMMON 

PIC 

9  VALUE  7. 

PIC 

99  VALUE  17 

. 

PIC 

X ( 12 )  VALUE 

"DEFINE 

PIC 

9  VALUE  7. 

PIC 

99  VALUE  17 

. 

PIC 

X  (12)  VALUE 

"DIRECT 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  13 

PIC 

X (12 )  VALUE 

"DO 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  8. 

PIC 

X (12 )  VALUE 

"ELSE 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  2. 

PIC 

X  (1 2 )  VALUE 

"ELSECASE 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  6 . 

PIC 

X  (12)  VALUE 

"ENCODE 

PIC 

9  VALUE  8. 

PIC 

99  VALUE  18. 

PIC 

X  (12)  VALUE 

"END 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  12. 

PIC 

X  (1 2 )  VALUE 

"ENDCASE 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  7. 

PIC 

X ( 12 )  VALUE 

"ENDDO 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  9. 

PIC 

X  (  1 2 )  VALUE 

"END  l  F 

PIC 

9  VALUE  2. 

PIC 

99  VALUE  3. 

2-249 


05 

FILLER 

PIC 

X  (12)  VALUE 

"FILE 

fl 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"FOR 

II 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"GOTO 

«l 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X(12)  VALUE 

"IF 

II 

05 

FILLER 

PIC 

9  VALUE  2. 

05 

FILLER 

PIC 

99  VALUE  1. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"IFEITH 

II 

05 

FILLER 

PIC 

9  VALUE  2. 

05 

FILLER 

PIC 

99  VALUE  10. 

05 

FILLER 

PIC 

X (12)  VALUE 

"IN 

II 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"INCLUDE 

II 

05 

FILLER 

PIC 

9  VALUE  6. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X(12)  VALUE 

"INPUT 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"IN/OUT 

It 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"10 

II 

05 

FILLER 

PIC 

9  VALUE  7 . 

05 

FILLER 

PIC 

99  VALUE  17. 

05 

FILLER 

PIC 

X  (1 2 )  VALUE 

"ITEM 

II 

05 

FILLER 

PIC 

9  VALUE  7 . 

05 

FILLER 

PIC 

99  VALUE  17. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"JOVIAL 

II 

05 

FILLER 

PIC 

9  VALUE  2. 

05 

FILLER 

PIC 

99  VALUE  14. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"MODE 

II 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"MONITOR 

II 

05 

FILLER 

PIC 

9  VALUE  8. 

05 

FILLER 

PIC 

99  VALUE  18. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"OPEN 

II 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"ORIF 

II 

05 

FILLER 

PIC 

9  VALUE  2. 

05 

FILLER 

PIC 

99  VALUE  11. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"OUT 

II 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17. 
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05 

FILLER 

PIC 

X(12)  VALUE 

"OUTPUT 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X ( 1 2 )  VALUE 

"OVERLAY 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17. 

05 

FILLER 

PIC 

X (12)  VALUE 

"PROC 

05 

FILLER 

PIC 

9  VALUE  8. 

05 

FILLER 

PIC 

99  VALUE  18. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"PROGRAM 

05 

FILLER 

PIC 

9  VALUE  8. 

05 

FILLER 

PIC 

99  VALUE  18. 

05 

FILLER 

PIC 

X  (12)  VALUE 

"REMQUO 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"RETURN 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X  (12 )  VALUE 

"SHUT 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19. 

05 

FILLER 

PIC 

X(12)  VALUE 

"START 

05 

FILLER 

PIC 

9  VALUE  8. 

05 

FILLER 

PIC 

99  VALUE  18, 

05 

FILLER 

PIC 

X(12)  VALUE 

"STOP 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19 

05 

FILLER 

PIC 

X  (12)  VALUE 

"STRING 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17 

05 

FILLER 

PIC 

X ( 12 )  VALUE 

"SWITCH 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19 

• 

05 

FILLER 

PIC 

X(12)  VALUE 

"TABLE 

05 

FILLER 

PIC 

9  VALUE  7. 

05 

FILLER 

PIC 

99  VALUE  17 

• 

05 

FILLER 

PIC 

X  (12 )  VALUE 

■"TERM 

05 

FILLER 

PIC 

9  VALUE  8. 

05 

FILLER 

PIC 

99  VALUE  18 

• 

05 

FILLER 

PIC 

X (12 )  VALUE 

"TEST 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19 

• 

05 

FILLER 

PIC 

X (12 )  VALUE 

"WAIT 

05 

FILLER 

PIC 

9  VALUE  4. 

05 

FILLER 

PIC 

99  VALUE  19 

• 

05 

FILLER 

PIC 

X (12)  VALUE 

"X  INCLUDE 

05 

FILLER 

PIC 

9  VALUE  6. 

05 

FILLER 

PIC 

99  VALUE  19 

• 

01  FILLER  REDEFINES  WORD-TABLE. 

05  WORD-TABLE-ENTRIES  OCCURS  53  TIMES 

ASCENDING  KEY  IS  WORD-IN-TABLE 


INDEXED  BY  WORD-INDEX. 


10 

WORD- IN -TABLE 

pic- 

X(12) 

10 

WORD-TYPE-IN-TABLE 

pi  C 

9  . 

10 

WORD-TYPE- IN-TABLE 

PIC 

99  . 

*  THIS  REDEFINITION  ASSUMES  THAT  A  FRESH  COPY  OF  THE  MODULE 

*  WILL  BE  LOADED  BEFORE  EACH  CALL 

01  PSL-HIGHER-UN IT -BLOCK  REDEFINES  WORD-TABLE 
COPY  P  SL -HIGHER-UNIT -BLOCK . 

c.  Branching  and  Error  Conditions 


Func  t ion 

Ref  . 

Condition 

Code 

Message 

Category 

Program 

Ac  t ion 

Note 

2 

48 

PSL 

Subsequent 
processing  by 
passed 

1 

18 

N/A 

end-of-unit  code 
returned  to  caller 

10 

33 

PSL 

file  not  assigned 

2 

11 

N/A 

N/A 

any  structure 
errors  flag  are 
added  to  the 
processing  status 

No  te  : 


(1)  Unable  to  read  a  line  from  the  PSL  library 
stored  unit.  See  description  of  RDUN  for 
the  specific  cause  of  "Unable  to  read  line 
for  unit"  condition. 

(2)  Unable  to  read  a  block  of  the  PSL  library 
section  file  see  description  of  ACBK  for 
specific  causes  of  "Unable  to  read  a  block" 
condition . 
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2. 2. 1.2. 4  Top -Down-Read 

Top-down-read  support  la  provided  to  sequentially  read 
the  source  code  of  a  module  Including  the  code  contained  In 
units  referenced  by  INCLUDE  statements.  The  program  modules 
which  perform  this  type  of  operation  are  described  below. 


\ 

l 
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2. 2. 1.2. 4.1  RDCM  -  Read  for  Compile 

The  RDCM  module  Is  repetitively  called  to  read  the  data 
lines  of  a  given  top  unit  whose  code  may  reference  INCLUDEd 
units  residing  in  multiple  project  libraries.  Lines  of  code 
are  sequentially  retrieved  from  the  top  and  Included  units 
and  returned  to  the  calling  program. 

a.  Program  Operations 

H1P0  diagram  1.2. 4.1  depicts  the  program  operations 
performed  by  the  RDCM  module.  If  this  is  the  initial  time 
called,  the  Keyword  Card  file  is  opened  for  input  and  read  to 
process  the  keyword  OBJECT  which  denotes  that  the  source  code 
is  to  be  compiled  and  its  object  code  stored,  the  UNIT  keyword 
value  which  gives  the  name  of  the  top  unit  and  the  LIBSEC 
keyword  value  which  gives  the  name  of  a  project  library  to  be 
searched  for  the  top  unit  and  its  Included  code.  If  an  OBJECT 
keyword  card  is  processed,  a  message  specifying  the  project 
library  section  and  unit  name  in  which  the  object  code  will 
be  stored  is  printed.  The  named  unit  is  then  searched  for  in 
the  project  library  source  section(s)  designated  on  the 
processed  LIBSEC  card(s).  Information  specifying  the  project 
library  section  in  which  the  unit  was  found,  its  current 
version/modification,  and  last  date  of  update  is  returned  to 
the  calling  program  in  conjunction  with  a  star t-of-unit  status 
code . 

The  STACK-PTR  value  is  incremented  to  one  in  the 
preceding  operation  and  the  unit  name  is  moved  to  STACK-UNIT- 
NAME  and  zero  is  moved  to  the  STACK-LINE-NBR  as  the  first 
entry  of  the  STACK-TABLE.  When  the  RDCM  module  is  next 
called,  a  line  of  code  from  the  top  unit  is  read  and  the 
STACK-LINE-NBR  is  Incremented  by  one  to  indicate  the  current 
line  number  being  processed  for  the  unit  at  that  STACK-PTR 
position,  and  the  retrieved  line  of  code  is  returned  to  the 
calling  program.  If  a  line  contains  an  INCLUDE  statement, 
the  unit  referenced  in  the  INCLUDE  stutement  is  found  using 
the  same  search  procedures  employed  for  the  top  unit.  After 
checking  to  see  that  the  INCLUDEd  unit  is  not  already  in  the 
Stack  Table  (which  would  indicate  an  INCLUDEd  unit  error 
condition),  the  STACK-PTR  is  Incremented  by  one  and  the  unit 
name  is  stored,  its  STACK-LINE-NBR  initialized  to  zero  and 
return  made  with  a  star t-of-unit  status  code.  The  INCLUDEd 
unit  is  next  read  and  if  it  contains  any  INCLUDE  statements, 
the  foregoing  procedure  is  repeated  and  the  STACK-PTR  value 
Is  Incremented  to  reflect  the  current  level  of  INCLUDE  state¬ 
ment  nesting  and  point  to  the  current  unit  and  line  number 
being  read.  When  the  end  of  the  unit  is  reached  for  the 
current  unit,  the  STACK-PTR  is  decremented  by  one  and  return 
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is  made  to  the  calling  program  with  an  end-of-unit  status 
code  set,  except  that  when  the  STACK-PTR  la  decremented  to 
zero,  an  end-of-module  status  code  is  returned  and  all  PSL 
section  files  previously  assigned  for  the  library  search 
are  released. 

It  will  be  noted  that  when  in  the  search  for  an 
INCLUDEd  unit  a  stub  unit  is  found,  the  search  Is  continued 
until  a  real  unit  is  found  or  all  the  libraries  are  examined. 
This  action  is  taken  to  ensure  that  a  PSL-genera ted  stub  in 
one  library  does  not  prevent  a  real  unit,  maintained  by  the 
user  in  a  second  library,  from  being  found.  Only  when  two 
(or  more)  versions  of  a  real  unit  exists  in  multiple  project 
libraries  does  the  order  of  library  scan  determine  the 
version  which  will  be  used. 


b.  Data  File  and  Table  Descriptions 

The  following  data  files  and/or  tables  are  of 


special  significance  in  program 

01  STACK-TABLE. 

05  STACK-ENTRY 

10  STACK-UN I T-NAME 
10  STACK-l.lNK-NBR 

01  STACK-PTR 

88  STACK- IS -EMPTY 
88  STACK-IS-FULL 


operations  of  the  RDCM  module: 


OCCURS  50  TIMES. 
PIC  X ( 30  )  . 

PIC  S  ( «♦ )  COMP. 

PIC  S9  (9)  COMP. 
VALUE  ZERO. 

VALUE  50. 


The  use  of  the  preceding  STACK-TABLE  and  STACK-PTR  data 
entries  is  discussed  under  program  operations.  It  will  be 
noted  that  the  INCLUDEd  unit  nesting  limit  Is  set  at  fifty 
(50).  This  limit  is  set  much  beyond  what  would  normally  be 
encountered  (even  in  very  large  programs)  to  preclude 
reaching  that  limit  and  giving  an  error  return. 

c.  Branching  and  Error  Conditions 

The  following  branching  and  error  conditions  apply 
to  HIP0  diagram  1.2. 4.1: 


Func  t Ion 
Reference 

Condition 

Code 

Message 

Category 

Program 

Ac  t  ton 

Note 

3 

77 

MSG 

Set  end-of-module 

status 

78 

MSG 

Set  end-of-module 

status 

4 

76 

MSG 

Set  init ialize-error  1 

status 
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c.  Branching  and  Error  Conditions  (continued) 


Func  t ion 
Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

No  te 

6 

79 

MSG 

Set  include-error 

status 

80 

MSG 

Set  include-error 

status 

7 

77 

MSG 

Set  include-error 

status 

78 

MSG 

Set  include-error 

Btatus 

9 

76 

MSG 

Set  initialize-error  1 

status 

NOTES  : 

(1)  This  Is  a  secondary  error  caused  by  an  error  return 
from  the  ITRD  module  where  a  PSL  error  message  is 
issued  describing  the  primary  cause  of  error. 
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Status  is  end-of-module 
END  IF 
END  IF 


2 . 2 . 1 . 2 . 4 . 2  RDPS 


Read  for  Program  Structure 


The  RDPS  module  Is  repetitively  called  to  scan  the  data 
lines  of  a  given  top  unit  whose  code  may  reference  LNCLUDEd 
units  residing  in  multiple  project  libraries.  INCLUDEd  and 
CALLed  unit  references  are  found  and  accounting  information 
is  returned  to  the  calling  program. 

a.  Program  Operations 

HIPO  diagram  1.2. 4. 2  depicts  the  program  operations 
of  the  RDPS  module  which  utilizes  unit  search  and  scan 
procedures  that  are  equivalent  to  the  RDCM  module  operations 
previously  described.  One  difference  in  RDPS  module  procedures 
is  that  only  the  keyword  LIBSEC  is  processed  from  the  Keyword 
Card  file  while  the  calling  program  (essentially  limited  to 
the  PRPS  module)  provides  the  name  of  the  top  unit  throng!  a 
USING  parameter  of  the  RDPS  module.  Another  difference  is 
that,  although  lines  of  code  are  sequentially  read  as  in  the 
RDCM  module,  return  to  the  calling  program  is  made  only  when 
an  INCLUDE  or  a  CALL  statement  is  found.  A  further  difference 
is  noted  in  the  processing  of  the  INCLUDEd  unit  reference. 

That  is,  when  the  included  unit  type  indicates  a  mul t i -in c luded 
unit,  the  included  unit  code  is  not  scanned.  However,  the 
calling  program  may,  as  accomplished  in  PRPS,  later  pass  the 
name  of  the  multi-included  unit  to  RDPS  as  the  "top  unit"  to 
further  scan  its  code  for  INCLUDE  and  CALL  statements.  A 
final  difference  is  that  when  a  CALL  statement  is  found,  only 
the  referenced  unit  name  is  returned  to  the  calling  program 
(i.e.,  no  accounting  information  is  returned).  Again,  the 
referenced  unit  may  later  have  its  name  passed  to  RDPS  as  a 
"top  unit"  to  start  a  scan  of  its  code,  if  such  is  required. 
Beyond  these  differences  the  program  operations  of  the  RDPS 
module  are  essentially  the  same  as  the  RDCM  module. 

b.  Data  File  and  Table  Descriptions 

Same  as  RDCM  module  description  under  paragraph 
2  .  2  .  1 . 2 . 4 . 1 . 

c.  Branching  and  Error  Conditions 

Same  as  RDCM  module  description  under  paragraph 
2. 2. 1.2. 4.1. 
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2. 2. 1.2. 5  Process  Message 


Message  processing  support  is  provided  in  three  separate 
print  message  operations.  The  Print  Message  (PRMS)  module 
exclusively  supports  the  operations  under  BCTL.  A  complete 
set  of  standard  error  messages  is  made  available  through  the 
subordinate  PRM1 ,  PRM2 ,  PRM3  and  PRM4  modules.  The  PRMSI 
module  is  equivalent  to  the  PRMS  module  except  that  a  lesser 
number  of  standard  message  is  required  by  the  spawned  job 
operations  which  it  supports.  The  Print  Errors  (PRER)  module 
is  utilized  in  addition  to  the  PRMSI  module  in  spawned  job 
operations  to  support  non-standard  error  message  output 
requirements . 


2. 2. 1.2. 5.1  PRMS 


Print  a  Message 


'I 


The  module  PRMS  is  responsible  for  printing  the  majority 
of  messages  generated  by  the  PSL  System.  The  module  PRMS 
writes  messages,  sequentially,  to  the  MESSAGE-FILE  as  it  is 
called.  The  PRMS  module  calls  one  of  four  subroutine  modules 
(PRM1 ,  PRM2,  PRM3  and  PRM4 )  in  order  to  build  the  printable 
messages.  Each  PSL  message  is  composed  of  a  three  character 
message  class  code,  a  message  number,  stored  message  text  and 
may  contain  data  supplied  by  the  calling  routine.  The  calling 
routine  is  responsible  for  supplying  the  message  number  and 
any  message  data  to  the  module  PRMS. 

a.  Program  Operations 

HIPO  diagram  1.2. 5.1  describes  the  program  operation. 
In  step  2,  the  MESSAGE-NUMBER-TABLE  is  searched  for  entry 
number  which  matches  the  MESSAGE-NUMBER.  The  matching  table 
entry  is  composed  of  a  message  class  code  and  a  message  text 
code.  The  message  class  code  from  the  table  entry  is  trans¬ 
lated  into  a  three  character  code  for  printing  by  the  CLASS- 
TABLE.  In  step  4  through  step  10,  the  message  text  code 
determines  which  subroutine  is  selected  to  build  the  remaining 
portion  of  the  print  message.  In  step  8  through  step  10,  the 
subroutine  which  handles  multiple  line  messages  is  called  for 
each  line  of  the  message.  In  step  11,  if  a  message  number  has 
no  entry  in  the  MESSAGE-NUMBER-TABLE,  see  Appendix  for  descrip¬ 
tion,  a  PSL  message  is  built  containing  supplied  message  data. 

In  step  12,  the  message  line  built  by  the  subroutines  is  written 
to  the  MESSAGE-FILE. 

b.  Data  File  and  Table  Descriptions 
1.  INPUT  ARGUMENTS 

MESSAGE-NUMBER  PIC  S9(9)  COMP. 

-  Number  which  corresponds  to  message  text  as 
it  appears  in  Appendix  C  in  User’s  Manual. 

MESSAGE-DATA  PIC  X(100) 

-  Data  to  be  inserted  into  message  supplied  by 
the  calling  routine. 

MESSAGE-FILE 

This  file  contains  the  printed  messages 
generated  by  the  PSL  System  executions. 
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•  01  PRINT-MSG-LINE 


PRINT-MSG-LINE 

10 

FILLER 

PIC 

X(3)  . 

10 

PRINT-ID 

PIC 

X  (3 )  . 

-  Message  class  three  1 

etter  code. 

10 

PRINT -MSG -NBR 

PIC 

X  ( 3 )  . 

-  Message  number 

10 

FILLER 

PIC 

X  (  2  )  . 

10 

PRINT-TEXT-DATA 

PIC 

X (109)  . 

-  Contains  the  body 
text  and  data. 

of 

the  message 

MESSAGE-LINE 

PIC 

X (109 )  . 

-  Contains  body  of  message  with  text  and  data 
built  by  appropriate  subroutine. 

•  01  CLASS-TABLE. 


05 

FILLER 

PIC 

X  (3  ) 

VALUE 

"ADV" . 

05 

FILLER 

PIC 

X  (3) 

VALUE 

"ERR" . 

05 

FILLER 

PIC 

X  (3  ) 

VALUE 

"FMS" . 

05 

FILLER 

PIC 

X(3) 

VALUE 

"INF"  . 

05 

FILLER 

PIC 

X  (3) 

VALUE 

"PSL"  . 

05 

FILLER 

PIC 

X  (3) 

VALUE 

"UND". 

05 

FILLER 

PIC 

X  (3 ) 

VALUE 

SPACE . 

01  FILLER  REDEFINES  CLASS-TABLE. 

05  CLASS-NAME  OCCURS  7  TIMES  PIC  X(3). 

-  Contains  three  character  codes  for  message  class. 

c.  Branching  and  Error  Conditions 

NOT  APPLICABLE  POINT  MESSAGE  ROUTINES. 
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2 . 2 . 1 . 2 . 5 . 1 . 1  PRM1  -  Print  Type  1  Message 

The  module  PRM1  is  responsible  for  building  a  PSL  message 
in  which;  1)  the  first  ten  characters  of  the  message  is  com¬ 
prised  of  stored  message  text,  2)  the  message  body  requires  a 
unique  print  format,  and  3)  the  message  is  composed  solely  of 
stored  message  text.  The  calling  routine  is  responsible  for 
supplying  the  MESSAGE-NUMBER  and  MESSAGE-DATA.  The  module 
PRM1  outputs  the  constructed  message  line.  The  MESSAGE-NUMBER 
is  the  connecting  element  between  the  predefined  print  line 
formats,  stored  message  text  and  the  format  of  input  message 
data. 


a.  Program  Operations 

HIPO  diagram  1.2. 5. 1.1  describes  the  program 
operation.  In  step  2,  if  the  print  line  format  requires  no 
input  message  data,  only  the  related  stored  message  text  is 
used  to  build  the  message.  In  step  4,  if  the  print  line 
format  specifies  that  the  first  ten  characters  of  the  message 
contains  stored  message  text,  then  the  appropriate  message 
text  and  message  data  combination  is  used  to  build  the  message. 
In  step  6,  if  the  print  line  format  has  an  unique  layout,  the 
appropriate  stored  message  text  and  message  data  combination 
is  used  to  build  the  message. 

b.  Data  File  and  Table  Descriptions 

1.  INPUT  ARGUMENTS 

MESSAGE-NUMBER  PIC  S9(9)  COMP. 

-  number  which  corresponds  to  return  code  of 
calling  routine. 

MESS AGE -DAT A A  PIC  X(100). 

-  data  associated  with  return  code  condition 
format  determined  by  message  number. 

2.  OUTPUT  ARGUMENTS 

PRINT-TEXT-DATAA  PIC  X(109). 

-  print  line  format  for  message  format 
determined  by  message  number. 

c.  Branching  and  Error  Conditions 


NOT  APPLICABLE  FOR  PRINT  MESSAGE  ROUTINES. 


clear  PRINT-TEXT- DAT A 


a  9 


2. 2. 1.2. 5. 1.2 


PRM2 


Print  Type  2  Message 


The  module  PRM2  in  responsible  for  building  a  PSL  message 
in  which  the  first  twenty  characters  or  the  first  fifty 
characters  of  the  message  is  comprised  of  stored  message  text. 
The  calling  routine  is  responsible  for  supplying  the  MESSAGE- 
NUMBER  and  MESSAGE-DATA.  The  module  PRM2  outputs  the  con¬ 
structed  message  line.  The  MESSAGE-NUMBER  is  the  connecting 
element  between  the  predefined  print  line  format,  the  store 
message  text,  and  the  format  of  the  input  message  data. 

a.  Program  Operations 

HIPO  diagram  1.2. 5. 1.2  describes  the  program 
operation.  In  step  2,  if  the  print  line  format  requires  that 
the  first  twenty  characters  of  the  message  consist  of  stored 
essage  text,  then  the  appropriate  message  text  and  message 
ata  combination  is  used  to  build  the  message.  In  step  3,  if 
the  print  line  format  requires  that  the  first  fifty  characters 
of  the  message  consist  of  stored  message  text,  then  the 
appropriate  message  text  and  message  data  combination  Is  used 
to  build  the  message. 

b.  Data  File  and  Table  Descriptions 

1.  INPUT  ARGUMENTS 

MESSAGE-NUMBER  PIC  S9(9)  COMP. 

-  number  which  corresponds  to  return  code  of 
calling  routine. 

MES SAGE -DAT A A  PIC  X(100). 

-  data  associated  with  return  code  condition 
format  determined  by  message  number. 

2.  OUTPUT  ARGUMENTS 

PRINT-TEXT-D ATA A  PIC  X(109). 

-  print  line  format  for  message  format 
determined  by  message  number. 

c.  Branching  and  Error  Conditions 

NOT  APPLICABLE  FOR  PRINT  MESSAGE  ROUTINES. 
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2 . 2 . 1 . 2 . 5 . 1. 3  PRM3  -  Print  Type  3  Message 

The  module  PRM3  is  responsible  for  building  a  PSL  message 
in  which  the  first  35  characters  of  the  message  is  comprised'  of 
stored  message  text.  The  calling  routine  is  responsible  for 
supplying  the  MESSAGE-NUMBER  and  MESSAGE-DATA.  The  module 
PRM3  outputs  the  constructed  message  line.  The  message  number 
is  the  connecting  element  between  the  predefined  print  line 
format,  stored  message  text,  and  the  format  of  the  input 
message  data. 

a.  Program  Operations 

HIPO  diagram  1.2. 5. 1.3  describes  the  program  operation. 
In  step  2,  if  the  print  line  format  specifies  that  the  first  35 
characters  of  the  message  contains  stored  message  text,  then, 
the  appropriate  message  text  and  message  data  combination  is 
used  to  build  the  message  line. 

b.  Data  File  and  Table  Descriptions 

1.  INPUT  ARGUMENTS 

MESSAGE-NUMBER  PIC  S9(9)  COMP. 

-  number  which  corresponds  to  return  code  of 
calling  routine. 

MESSAGE-DATAA  PIC  X(100). 

-  data  associated  with  return  code  condition 
format  determined  by  message  number 

2.  OUTPUT  ARGUMENTS 

PRINT-TEXT-DATAA  PIC  X(109). 

-  print  line  format  for  message  format 
determined  by  message  number. 

c.  Branching  and  Error  Conditions 

NOT  APPLICABLE  FOR  PRINT  MESSAGE  ROUTINES. 
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2 . 2 . 1 . 2 . 5 . 1 . 4  PRM4  -  Print  Type  4  Message 

The  module  PRM4  is  responsible  for  building  multiple  line 
PSL  messages.  The  print  line  format  of  module  PRM4  is  a 
composite  of  the  PRINT-TEXT -DATA  definitions  described  in 
modules  PRM1,  PRM2 ,  and  PRM3.  The  calling  routine  is  respon¬ 
sible  for  supplying  the  MESSAGE-NUMBER,  MESSAGE-DATA  and 
MESSAGE-LENGTH.  The  module  PRM4  outputs  the  constructed 
message  line.  The  message  number  is  the  connecting  element 
between  the  predefined  print  line  format,  stored  message  text, 
and  the  format  of  the  input  message  data. 

a.  Program  Operations 


HIPO  diagram  1.2. 5. 1.4  describes  the  program 
operation.  In  step  2,  the  first  message  line  is  initialized 
with  the  message  text  and  message  data  that  are  associated  with 
the  MESSAGE— NUMBER .  In  step  3,  if  the  message  number  is  one 
which  supplies  file  and  catalog  data,  turn  the  FILE-STRING-SW 
on.  In  step  4,  if  the  FILE-STRING-SW  is  on,  initialize  the 
second  message  line  with  file  string  message  data  and  file 
string  print  format.  In  step  6,  initialize  the  second  message 
line  with  the  message  data  and  stored  message  text  associated 
with  the  message-number. 

PGMR-NAME 

-  nafme  of  programmer  performing  update. 

MOD-NBR 


b.  Data  File  and  Table  Descriptions 
1.  INPUT  ARGUMENTS 

MESSAGE-NUMBER  PIC  S9(9)  COMP. 


-  number  which  corresponds  to  return  code  of 
calling  routine. 

MESSAGE-DATAA  PIC  X(100). 


-  data  associated  with  return  code  condition 
format  determined  by  message  number. 
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Hi  <i 


MESSAGE-LENGTH  PIC  S9(9)  COMP. 

-  the  number  of  lines  to  be  printed  in 
multi-line  message. 

PR1NT-TEXT-DATAA  PIC  X(109). 

-  print  line  format  for  message  format 
determined  by  message  number. 

nr  hi  hr  and  Error  Conditions 


NOT  APPLICABLE  FOR  PRINT  MESSAGE  ROUTINES. 


2. 2. 1.2. 5. 2  PRER 


Print  Errors 


The  PRER  module  is  utilized  by  PSL  spawned  job  modules 
to  output  general  error  messages  for  which  no  standard  text 
has  been  pr e-determined . 

a.  Program  Operations 

HIPO  diagram  1.2. 5. 2  depicts  operations  of  the  PRER 
module.  The  input  parameters  specify  the  content  of  the 
required  error  message.  These  inputs  -re  formatted  for  output 
to  an  eTor  message  listing  file. 

b.  Data  File  and  Table  Descriptions 
1.  Message  Listing  File 

01  PRINT-LINE. 


05 

MSG -LABEL-FIELD 

PIC 

X(4)  . 

05 

MSG-NBR-FIELD 

PIC 

Z(4) 

05 

FILLER 

PIC 

X(2'>  . 

05 

UNIT-LABEL-FIELD 

PIC 

X  (5  )  . 

05 

UNIT-NAME-FIELD 

PIC 

X  (30)  . 

05 

FILLER 

PIC 

X  (  2  ) 

05 

LINE-LABEL-FIELD 

PIC 

X  (  5  )  . 

05 

LLNE-NBR-FIELD 

TIC 

Z(5)  . 

05 

FILLER 

PIC 

X  (6  3  )  . 

c.  Branching  and  Error  Conditions 
Not  applicable. 
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2. 2. 1.2. 5. 3  PRMSI  -  Print  Message  in  Spawned  Job 


The  module  PRMSI  is  responsible  for  printing  the  messages 
generated  by  the  PSL  System  In  a  spawned  job  environment.  The 
module  PRMSI  Is  designed  to  write  messages  sequentially,  to 
the  MESSAGE— FILE  as  it  is  called.  The  modules  which  utilize 
the  PRMSI  module  in  the  spawned  job  environment  are  those 
modules  that  are  contained  in  the  PSL  Procedures  described  in 
Appendix  D  of  the  User's  Manual.  The  calling  routines  are 
responsible  for  supplying  the  MESSAGE-NUMBER  and  MESSAGE-DATA. 
The  MESSAGE-NUMBER  is  the  connecting  element  between  the  pre¬ 
defined  print  line  format,  stored  message  text  and  the  format 
of  the  input  message  data. 

a.  Program  Operations 

HIPO  diagram  1.2.5. 3  describes  the  program  operation. 
In  step  1,  if  the  MESSAGE-NUMBER  is  not  defined  under  the 
message  categories  listed  in  Appendix  C  of  the  User's  Manual, 
an  "undefined"  message  written  to  the  MESSAGE-FILE.  In  step 
3,  if  the  message  to  be  written  consist  of  multiple  lines, 
each  line  is  initialized  and  written,  singularly.  In  step  6, 
the  MESSAGE-NUMBER  determines  the  PRINT-TEXT -DATA  format,  the 
stored  message  text,  and  the  MESSAGE-DATA  definition  with 
which  to  initialize  message  line.  The  message  line  processing 
is  similar  to  the  processing  of  modules  PRM1,  PRM2 ,  PRM3  and 
PRMA. 


b.  Data  File  and  Table  Descriptions 
1.  INPUT  ARGUMENTS 

MESSAGE-NUMBER  PIC  S9(9)  COMP. 

-  number  which  corresponds  to  message  text  as 
it  appears  in  Appendix  C  in  User's  Manual. 

MESSAGE-DATA  PIC  X(100) . 

-  data  to  be  inserted  into  message  supplied 
by  the  calling  routine. 

MESSAGE-FILE 

-  This  file  contains  the  printed  messages 
generated  by  the  PSL  System  executions. 


•  01  PRINT -MSG-LINE 


05  PRINT— MSG— LINE 


10 

FILLER 

PIC 

X(3). 

10 

PRINT-ID 

PIC 

X(3)  . 

-  Message  class  three 

letter 

code . 

10 

PRINT-MSG-NBR 

PIC 

X  (3)  . 

-  Message  nuaber 

10 

FILLER 

PIC 

X (2)  . 

10 

PRIHT-TEXT-DATA 

PIC 

X(109) . 

-  Contains  tha  body  of 
text  and  data. 

the  aessage  vith 

MESSAGE-LINE 

PIC 

X  (109) . 

-  contain*  body  of  aessage  with  text  and 
data  built  by  appropriate  subroutine. 


01  CLASS-TABLE. 


05 

FILLER 

PIC 

X  (3) 

VALUE 

"ADV" 

05 

FILLER 

PIC 

X  (3) 

VALUE 

"ERR" 

05 

FILLER 

PIC 

X  (3) 

VALUE 

"FMS" 

05 

FILLER 

PIC 

X  (3) 

VALUE 

"INF" 

05 

FILLER 

PIC 

X(3) 

VALUE 

"PSL" 

05 

FILLER 

PIC 

X(3) 

VALUE 

"UND" 

05 

FILLER 

PIC 

X(3) 

VALUE 

SPACE 

01  FILLER  REDEFINES  CLASS-TABLE. 

05  CLASS-NAME  OCCURS  7  TIKES  PIC  X(3). 


-  Containe  three  character  codes  for  aesaage  class, 
c.  Branching  and  Error  Conditions 

NOT  APPLICABLE  FOR  PRINT  MESSAGE  ROUTINES. 
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2. 2. 1.2. 6  Obtain  Input  Card 

Support  la  provided  by  a  three-entry  point  nodule  whose 
progran  Identification  la  OBIC  (but  whose  nodule  nane  la 
specified  as  OBKWE  to  facilitate  progran  structure  report 
generation).  The  three  entry  points  correspond  with  the 
subordinate  routines  OBFN,  OBKW,  and  OBSD  described  In  the 
following  paragraphs.  Thsse  routines  read  and  scan  the  Input 
cards  subnitted  by  a  FSL  user  to  deternlne  the  next  PSL 
function,  keyword  and  source  data,  respectively. 


2. 2. 1.2. 6.1  OBFN  -  Obtain  a  Function 

Tha  aodule  OBFN  la  responsible  for  obtaining  the  function 
or  subfunction  word  from  the  INPUT-CARD  file.  The  OBFN 
procesalng  acans  the  users’  control  cards  for  the  function  or 
subfunction  naae.  If  the  naae  is  not  found  on  the  control 
card,  OBFN  processing  will  autoaatlcally  read  through  the 
INPUT-CARD  file  scanning  each  control  card  until  a  function 
or  subfunction  is  located.  Once  the  function  naae  has  been 
obtained,  OBFN  processing  initializes  the  INPUT-CARD-KEYWORD- 
VALUE  area  and  acans  the  reaalnder  of  the  control  card  for  a 
non-blank  character.  The  aodule  OBFN  only  reads  the  INPUT-CARD 
file,  it  does  not  open  or  close  the  file. 

a.  Program  Operations 

H1P0  diagram  1.2. 6.1  describes  the  operation  per¬ 
formed.  In  step  3,  only  cards  containing  the  PSL  control 
characters  set  of  "**£"  are  scanned  for  the  function  or  sub¬ 
function  word.  Starting  at  card  column  3  which  contains  a 
blank  character,  a  scan  for  a  non-blank  character  begins. 

In  step  4  through  step  6,  each  contiguous  non— blank  character 
is  stored  in  a  hold  area.  In  step  7,  if  the  word  in  the  hold 
area  has  the  proper  length,  then  it  is  moved  to  the  output  area 
and  the  word  found  switch  is  turned  on.  In  step  9,  Internal 
data  areas  are  Initialized  for  keyword  processing  (OBKW)  is 
cleared.  (see  Section  2. 2. 1.2. 6. 2  for  description). 

b.  Data  File  and  Table  Descriptions 

INPUT-CARDS 

This  file  contains  the  user's  control  cards  and  user 
data.  The  PSL  run  deck  is  identified  as  the  INPUT-CARDS  file. 

e  01  INPUT-CARD 

05  INPUT-CARD-COLUMN  OCCURS  80  TIMES 

PIC  X. 

-  Card  iaage  of  user  control  cards  and  user  data 
control  cards  are  distinguished  froa  user  data 
cards  by  the  character  set  in  the  first 

three  position  of  the  card. 

1.  OUTPUT  ARGUMENT 

INPUT-CARD-FUNCTION  PIC  X(12). 

-  The  function  word  obtained  froa  the  PSL 
control  card. 


DitfrM  ID.  Name:  OBPM  -  obtain  a  Function  Description.  Support  Routine 


1 


PROCESSING-STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normel  status 

-  error  code  indicating  cause  of 
failure  of  OBFN .  See  Section 
2.2.1.2.6.1(c)  for  complete 
list  of  codes. 


c.  Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action  Note 

1 

14 

INF 

Subsequent  processing 
bypassed 

3 

13,71 

ERR 

Next  input  card  is  read, 
processing  continues 

T 


Next  input  card  is  read 
processing  continues 


2. 2. 1.2. 6. 2  OBKW  -  Obtain  Keyword 

The  module  OBKW  is  responsible  for  obtaining  the  keywords 
and  associated  values  with  PSL  functional  processing.  A  list 
of  keywords  Is  given  in  Figure  3-12  of  the  User's  Manual. 

The  calling  routine,  which  Is  usually  a  functional  processor, 
expects  to  receive  the  keyword  and  the  associated  value  as 
input.  The  module  OBKW  reads  through  the  INPUT-CARD  file 
processing  user's  control  cards.  The  module  OBKW  scans  the 
user  control  cards  storing  and  passing  keywords  and  their 
associated  values  to  the  calling  routines.  Each  call  to  the 
module  OBKW  updates  pointers  to  the  control  card  where  to 
start  the  OBKW  processing  for  the  next  call.  The  arrangement 
of  keywords  and  values  are  dependent  on  the  delimiter  between 
words  on  the  control  card. 

a.  Program  Operations 

HIPC  diagram  1.1. 6. 2  describes  the  operation 
performed.  In  step  1,  if  the  control  card  has  not  been 
printed  by  previous  processing,  it  is  printed.  In  step  5, 
the  OBKW  processing  scans  across  the  card  for  the  first  word 
and  delimiter  that  appears.  In  step  6,  the  first  word  and 
delimiter  obtained  is  used  to  update  INPUT-CARD-KEYWORD-VALUE. 
Storage  of  the  data  processed  is  dependent  on  the  delimiter 
encountered.  In  step  8,  the  continued  processing  of  OBKW  is 
dependent  on  previous  storage  of  data  words.  If  the  previous 
delimiter  denotes  that  a  keyword  value  is  to  follow,  then 
processing  continues  to  obtain  second  word  delimiter  pair. 

In  step  11,  if  previous  delimiter  denotes  that  keyword  value 
follows,  then  processing  continues  to  obtain  third  word 
delimiter  pair.  In  step  13,  if  the  end  of  control  card  being 
scanned  has  been  reached  or  the  card  is  continued  on  the  next 
card,  the  next  card  of  the  INPUT-CARD  file  is  read,  verified  as 
a  control  card,  and  scanned  for  first  character  of  first  word. 

b.  Data  File  and  Table  Descriptions 

INPUT-CARDS 


-  See  section  2. 2. 1.2. 6.1  for  description 


SPECIAL-CHARACTER 

PIC  X. 

88 

BLANK-CHARACTER 

VALUE 

SPACE. 

88 

FUNCTION-DELIMITER 

VALUE 

II 

SPACE,  QUOTE 

j  ii  ii  i  ••  iibii 

88 

WORD-DELIMITER 

VALUE 

M 

'7 

,",  SPACE. 

88 

QUOTE-PRESENT 

VALUE 

QUOTE. 

88 

END-CARD 

VALUE 

"X'\ 

77 


•  01 


88 

EQUAL-SIGN 

VALUE 

n*H  f 

88 

COMMA-DELIMITER 

VALUE 

If  II 

9  • 

88 

CPAREN-DELIMITER 

VALUE 

88 

SLASH-DELIMITER 

VALUE 

7". 

88 

OPAREN-DELIMITER 

VALUE 

TRAIL ING-DELIMITER 

PIC  X. 

88 

TRAILING- SLASH 

VALUE 

■7". 

88 

TRAILING-COMMA 

VALUE 

(I  li 

9  • 

88 

TRAIL ING-EQUAL- SIGN 

VALUE 

l*-"  . 

88 

TRAILING-CPAREN 

VALUE 

88 

TRA I LING-OP AREN 

VALUE 

88 

TRAILING-BLANK 

VALUE 

SPACE 

-  List  of  delimiters  used  in  OBKW  processing  to 
support  keywords  and  keyword  values. 


OUTPUT  ARGUMENTS 


INPUT-CARD-KEYWORD-VALUE 


-  This  data  group  is  used  to  store  keywords,  key-word 
values,  length  of  words  and  set  switches  denoting 
the  end  of  any  particular  data  level  stored. 


05 


05 


PRIME-KEYWORD 
10  PRIME-KW-CHARACTER 


FILLER 

10  SHORT-PRIME-KEYWORD 
10  FILLER 


OCCURS  12  TIMES 
PIC  X(12). 

REDEFINES  PRIME -KEYWORD 
PIC  X (4 ) . 

PIC  X(8) . 


05 


05 


-  Usually  the  first  word  following  the  function 
word  on  a  control  card.  The  delimiter  which 
follow  PRIME-KEYWORD  is  -  or  blank. 
SUB-KEYWORD. 

10  SUB-KW-CHARACTER  OCCUR!,  12  TIMES 

PIC  X(12) . 

FILLER  REDEFINES  SUB-KEYWORD. 

10  SHORT-SUB-KEYWORD  PIC  X(9). 

10  FILLER  PIC  X(8) . 


05 


-  Usually  presided  by  the  delimiters  (  (OR,  OR  b) 
and  followed  by  a  slash  delimiter. 
LENGTH-OF-VALUE  PIC  S9(9)  COMP. 


05 


-  Denotes  the  length  of  the  stored  keyword  value 
KEYWORD-VALUE. 

10  KW-VALUE-CHARACTER  OCCURS  48  TIMES 

PIC  X. 


J 


d 
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05  FILLER  REDEFINES  KEYWORD-VALUE . 

10  SRORT-KEYWORD-VALUE  PIC  X(4) . 

10  FILLER  PIC  X(44) . 

-  Usually  preceded  by  a  delimiter  (*■  OR,  OR  /) 
and  followed  by  a  delimiter  (J$,  comma,  OR  /, 
OR  )). 

05  LAST-IMRE— KW-SW  PIC  S9(9)  COMP. 

-  Denotes  when  the  PRIME-KEYWORD  is  obtained 

05  LAST-SUB-KW-SW  PIC  S9(9)  COMP. 

-  Denotes  when  the  last  SUB-KEYWORD  is  stored 

05  LAST-KW-VALUE-SW  PIC  S9(9)  COMP. 

-  Denotes  the  last  keyword  associated  with  a  PRIME- 
KEYWORD  or  SUB-KEYWORD  on  the  control  card. 

•  01  PROCESSING  STATUS  PIC  S9(9)  COMP. 

Return  code  -  zero  for  normal  status 

-  error  code  indicating  cause  of  failure  of 
OBKW.  See  section  2.1.2.1.2.6.2(c)  for 
complete  list  of  codes. 

c.  Branching  and  Error  Conditions 


Function 

Reference 

Condition 

Code 

Message 

Category 

Program 

Action 

1 

20 

N/A 

Normal  status 

Processing  continues 

2 

89 

PSL 

Subsequent 

bypassed 

processing 

5 

19 

ERR 

Processing 

continues 

6 

2 

ERR 

Processing 

continues 

7 

13,71 

ERR 

Processing 

continues 

sSls 


2. 2. 1.2.6. 3  OBSD  -  Obtain  Source  Data 

The  module  OBSD  Is  responsible  for  obtaining  user  data 
from  the  INPUT-CARD  file.  The  module  OBSD  Is  usually  called 
by  a  PSL  functional  processor  to  obtain  data  line  for  a  unit 
In  a  PSL  library.  User  data  which  has  the  control  characters 
"**K"  in  the  first  columns  must  be  preceeded  by  **  DATA  card 
and  followed  by  an  **  ENDATA  card  In  order  to  be  recognized 
as  user  data.  Each  call  to  the  module  OBSD  returns  a  user 
data  line. 


a.  Program  Operations 

HIPO  diagram  1.2. 6. 3  describes  the  operation  per¬ 
formed.  In  step  1,  if  an  input  card  is  read  that  has  the 
control  set  (**#)  in  the  first  three  columns  then  the  card 
has  to  be  scanned  for  the  word  DATA.  In  step  3,  the  first 
non-blank  character  following  the  word  DATA  on  the  **  DATA 
card  is  stored  In  LIMIT-SPEC  for  later  validation  of  **  ENDATA 
card.  In  step  1,  if  an  input  card  is  read  that  has  the 
control  set  (**#)  in  the  first  three  columns,  then  the  card 
has  to  be  scanned  for  the  word  ENDATA.  In  step  12,  the  first 
non-blank  character  following  the  word  ENDATA  on  the  **  ENDATA 
card  is  compared  to  the  LIMIT-SPEC.  If  the  non-blank 
character  matches  LIMIT-SPEC  then  the  end  of  user  data  has 
been  reached,  otherwise  the  card  is  considered  user  data. 

b.  Data  File  and  Table  Descriptions 

INPUT-CARDS 

-  See  section  3  for  description. 

•  01  LIMIT-SPEC  PIC  X (3)  VALUE  HIGH  VALUES 

-  Storage  area  for  non-blank  character  followed  word 
DATA  on  the  **  DATA  card 

1.  OUTPUT  ARGUMENTS 

SOURCE-DATA  PIC  X(80). 

-  Card  image  of  INPUT-CARD  user  data 

PROCESSING  STATUS  PIC  S9<9)  COMP. 

Return  code  -  zero  normal  status 

-  error  code  indicating  cause  of 

failure  of  OBSD.  See  section 

2.2.1.2.6.3(c)  for  complete 
list  of  codes . 
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Diagram  IDs  1.2. 6. 3.1  Name:  OBSD  -  Validate  ENDATA  Card  Description:  Support  Soutine 


c.  Branching  and  Error  Condltlona 


Function 
Raf aranca 

Condition 

Coda 

Maaaaga 

Cataaorv 

Progran 

Action 

1 

14 

INF 

Subsequent  proceaalng 
bypaased 

1.11 

13,71 

ERR 

Next  Input  card  la  read 
proceaalng  contlnuaa 

5.9,12 

20 

n/a 

Normal  status 

Processing  continues 

8 

0  . 

N/A 

Normal  status 

Processing  continues 

12,24 

28 

N/A 

4 

End  of  source  data 
Proceaalng  continues 

2-290 


